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I.  INTRODUCTION 


The  following  is  a report  on  the  design  and  development  of  the 
Computer  Man  for  application  to  vulnerability  studies  of  military  per- 
sonnel engaged  in  combat  environments  and  subjected  to  various  weapon 
threats.  Although  this  model  is  not  currently  in  use  at  the  Ballistic 
Research  Laboratory  (BRL) , it  is  presented  in  order  to  document  the  work 
done,  and  because  the  model  may  be  of  interest  in  future  personnel 
vulnerability  studies. 

For  many  years  injury  criteria  were  based  upon  medical  assessments 
of  autopsy  reports  derived  from  animal  experiments.  However,  attempts 
to  correlate  the  effects  of  physiological  damage  in  humans  with  that 
produced  in  animals  led  to  certain  difficulties.  To  avoid  these  pro- 
blems, it  was  decided  in  1974  to  shift  the  personnel  vulnerability  effort 
to  that  of  modeling  the  wounding  process.  Hence,  the  development  of  the 
Computer  Man  came  into  existence.  The  Computer  Man  Anatomical  Model  is 
part  of  an  overall  effort  that  has  been  conducted  in  the  Personnel 
Vulnerability  Group  to  develop  an  analytical  model  which  could  be  used 
to  predict  the  effects  wounds  have  on  human  functions  for  various 
classes  of  projectiles. 

The  computer  generated  three-dimensional  representation  of  a human 
male  is  defined  as  the  Computer  Man.  The  Computer  Man  is  essentially  an 
organized  array  of  tissue  codes  which  are  encountered  when  theoretically 
generated  random  trajectories  strike  and  penetrate  or  perforate  the  body. 

The  essence  of  this  report  consists  of  instructions  and  programs 
written  to  construct,  store  and  print  Computer  Man  models.  Detailed 
documentation  is  provided  for  their  interpretation  and  use. 


II.  VULNERABILITY 

In  the  vulnerability  analyses,  the  development  of  the  criteria  re- 
lating to  the  effects  wounds  have  on  a soldier's  ability  to  perform  in 
a combat  environment,  and  the  scope  of  the  methodology  used,  is  quite 
extensive.1  Moreover,  since  incapacitation  and  lethality  are  the  basic 
injury  classifications  studied  in  formulating  the  codes  which  make  up 
the  Computer  Man,  these  two  areas  of  interest  will  be  discussed  briefly 
here. 


For  the  incapacitation  data  used  with  the  Computer  Man  Anatomical 
Model  described  in  this  report,  surgeons  were  asked  to  evaluate  a list 


W.  Kokinaki8  and  J.  Sperrazza , "Criteria  for  Incapacitating  Soldiers 
with  Fragments  and  Flechettes,  " Ballistic  Research  Laboratories 
Report  No.  1269,  Jan  1965.  (AD  #359774) 
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of  181  tissues  which,  when  rendered  non- functional  by  a penetrating 
projectile,  could  induce  some  level  of  incapacitation  with  respect  to  a 
given  scenario.  A detailed  description  of  the  tissue  codes  which  define 
the  Computer  Man  is  listed  for  reference  in  Appendix  A.  Three  time 
frames  were  stipulated  in  conjunction  with  each  of  two  classifications 
of  combat  roles : 

1.  assault  immediate, 
defense  immediate. 

2.  assault  5.30  sec. 
defense  1 30  sec. 

3.  assault  5.  5 min. 
defense  5.  5 min. 

Surgeons  used  a range  of  whole  numbers  (0-100)  to  indicate  quanti- 
tatively the  level  of  incapacitation  rendered.  Pain  was  of  no  consider- 
ation. Approximately  a third  of  the  anatomical  tissues  were  assigned 
non- zero  scores. 


To  generate  the  tools  for  the  lethality  analysis  a different  ap- 
proach was  undertaken.  A team  of  surgeons  was  presented  a set  of  gridded 
anatomical  cross  sections  as  developed  by  Eycleshymer  and  Schoemaker. 

The  medical  assessors  were  asked  to  independently  estimate  the  effects  of 
the  removal  of  a defined  quantity  of  body  tissue  on  human  survivability. 

A relative  scale  of  whole  numbers  (1-10)  was  employed.  A score  was 
entered  for  each  tissue  cell  defined  on  a cross  section  based  upon  the 
probability  of  death  occurring,  given  the  removal  of  a single  cell. 
Scenarios  were  established  for  four  time  frames  relative  to  the  avail- 
ability of  expert  medical  aid;  within  30  minutes,  within  one  hour, 
within  six  hours,  and  no  treatment. 


The  number  of  assessments  differ  for  each  of  the  preceding  time 
frames.  Initially,  three  assessors  were  asked  to  make  estimates  on  all 
cells  throughout  the  body.  Subsequently,  an  additional  group  of  asses- 
sors were  asked  to  provide  estimates  for  those  parts  of  the  body  for 
which  they  were  considered  specialists.  In  these  cases  the  body  was 
divided  into  four  sections;  head  and  neck,  thorax,  abdomen  and  pelvis, 
and  limbs.  Composite  evaluations  are  treated  in  the  same  manner  as 
individual  evaluations.  Specific  details  on  the  medical  judgment  pro- 
cess for  estimating  incapacitation,  as  well  as  lethality,  and  the  method- 
ology used  to  correlate  damage  with  incapacitation/lethality,  will  be 
documented  in  a BRL  publication  which  is  presently  being  organized.  In 
the  interim,  queries  concerning  the  medical  inputs  to  the  Computer  Man 
Anatomical  Model  should  be  addressed  to  Director.  Ballistic  Research 
Laboratory,  ATTN:  DRDAR-BLV,  Aberdeen  Proving  Ground,  MD  21005. 

2 “ 

A.C.  Eycleshymer  and  D.M.  Schoemaker , "A  Cross-Section  Anatomy > " 

215pp3  D.  Appleton  - Century  Company 3 New  York  and  London , 1911. 


8 


III.  COMPUTER  MAN  TARGET  DESCRIPTION 


A.  Origin  of  Computer  Man 

Physical  dimensions  of  the  Computer  Man  are  based  upon  photographs 
taken  from  the  Cross-Section  Anatomy  of  reference  2,  in  which  a set  of 
108  horizontal  cross  sections  pertaining  to  an  adult  male  are  given.  The 
anatomical  cross  sections  are  grouped  according  to  body  parts;  head  and 
neck  (cross  sections  1-18);  thorax,  abdomen  and  pelvis  (cross  sections 
19-44);  left  arm  (cross  sections  50-75);  left  leg  and  foot  (cross  sections 
76-113).  Cross  sections  (45-49)  are  descriptions  of  the  female  organs 
taken  in  the  pelvic  region  and  are  not  included  in  our  study.  Figure  1 
illustrates  the  approximate  intervals  at  which  slices  were  taken  from  the 
human  anatomy  in  the  thorax,  abdomen  and  pelvis.  The  spacing  between 
slices  is  2.6  cm. 

The  initial  step  in  the  Computer  Man  development  is  conducted  by 
superimposing  a grid  mesh  onto  each  photograph  and  examining  the  contents 
of  each  cell  present.  A representative  cross  section  is  illustrated  in 
Figure  2.  A set  of  tissue  codes  was  devised  based  upon  the  principle 
tissue  contained  in  each  cell  and  each  cross  section  was  stored  in  com- 
puter memory  as  a two-dimensional  array.  A pictorial  view  of  a typical 
cross  section  is  displayed  in  Figure  3.  The  integers  present  in  the  cells 
for  this  illustration  indicate  lethality  scores. 

B.  Description  Used  for  Incapacitation  Studies 

For  incapacitation  the  dimensions  of  each  grid  cell  are  ,5cm  x .5cm 
x 1.2cm  in  the  head  and  neck;  throughout  the  remainder  of  the  body  the 
dimensions  are  .5cm  x .5cm  x 2.6cm.  The  contents  of  each  cell  is  a 
tissue  code  which  is  an  integer  in  the  range  (2-200)  . The  incapacitation 
estimates  assigned  by  medical  assessors  are  not  part  of  the  target 
description  but  can  b«  cross  referenced  with  their  associated  tissue  codes 
whenever  a computation  is  required. 

C.  Description  Used  for  Lethality  Studies 

For  lethality  the  dimensions  of  each  cell  are  1cm  x 1cm  x 1.2cm  in  the 
head  and  neck;  throughout  the  rest  of  the  body  the  dimensions  are  1cm  x 
lcm  x 2.6cm.  The  contents  of  each  cell  is  an  assessor's  evaluation,  an 
integer  in  the  range  (1-10). 

D.  Assembly  of  Cross  Sections 

All  arrays  are  grouped  into  a superset  consisting  of  108  elements 
(slices).  Each  array  consists  of  a number  of  rows  and  columns.  The  row 
and  column  width  is  dependent  on  the  area  of  each  cross  section  and  the 
mesh  of  each  grid  used.  By  stacking  and  attaching  each  slice  in  .its 
properly  related  position,  the  initial  set  of  108  anatomical  cross 
sections  given  in  reference  2 evolved  into  a three-dimensional  model 
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Figure  2.  A Cross  Section  Taken  From  "A  Cross-Section  Anatomy"  Overlayed  with  Grid  Mesh 
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Figure  3.  A Pictorial  View  of  a Chosen  Cross  Section  Illustrating  the 
Positioning  and  Contents  of  the  Rectangular  Blocks 


consisting  of  82  composite  cross  sections.  Figures  4 and  5 provide  a 
visual  characterization  of  the  form  the  Computer  Man  assumes  when  stored 
in  computer  memory  as  a three-dimensional  array.  The  right  limbs  were 
generated  by  merely  reflecting  the  left  limbs  about  the  center  line  of 
the  body. 

In  stacking  the  slices,  a line  of  orientation  was  necessary  to  en- 
sure that  each  cross  section  was  aligned  vertically  with  adjacent  cross 
sections.  This  was  accomplished  through  benchmarks  between  slices.  In 
the  arms  and  legs,  large  bones  served  as  benchmarks.  In  the  head, 
smaller  slices  were  arranged  above  and  below  others  by  treating  each 
slice  as  an  elipsoid  and  matching  their  relative  centers.  In  the  torso, 
the  vertebrae  was  employed  as  a benchmark.  A more  accurate  procedure 
for  establishing  and  utilizing  benchmarks  was  not  possible  since  cross- 
sectional  anatomy  data  were  prepared  from  a number  of  cadavers  and  body 
parts  each  of  which  differed  in  height,  weight,  age,  and  cross-sectional 
area. 

E.  Positioning  the  Computer  Man  in  Three-Dimensional  Space 

The  Computer  Man  can  be  pictured  as  standing  in  a right-hand  coordi- 
nate system  as  portrayed  in  Figure  6-A.  If  the  coordinate  axes  are 
rotated  so  that  the  Computer  Man  can  be  viewed  in  his  prone  position,  as 
illustrated  in  Figure  6-B,  the  Computer  Man  model  slice  descriptions  can 
be  easily  interpreted.  If  slices  are  cut  parallel  to  the  xy  plane, 
starting  at  the  origin,  the  first  body  cells  encountered  are  cells  com- 
prising the  feet.  Thereby  the  Computer  Man  was  assembled  feet  first  pro- 
gressing in  the  +z  direction  until  the  total  configuration  was  complete. 

Appendix  B lists  a slice  by  slice  computer  description  of  the  in- 
capacitation model  derived  by  substituting  a symbol  for  each  tissue  code. 
Appendix  A lists  the  symbolic  identification  code,  cross  sections  where 
tissues  are  located  and  physical  structure  associated  with  each  tissue 
code  defined  in  the  model. 

Appendix  C contains  a slice  by  slice  computer  description  of  the 
lethality  model.  The  average  of  all  doctors'  evaluations  for  the  one 
hour  time  frame  is  given. 

F.  Computer  Man  Body  Box 

The  target  analysis,  specifically  the  ray  tracing  routines,  was 
simplified  by  enclosing  the  Computer  Man  inside  a rectangular  box.  The 
box  is  called  the  body  box  and  its  dimensions  are  slightly  larger  than 
those  of  the  Computer  Man.  The  boundaries  of  the  body  box  are  defined 
by  the  size  of  the  three-dimensional  array,  MAN(I,J,K).  It  is 


Slice  descriptions  representing  additional  time  frames  can  be  procured 
through  the  Target  Assessment  Branchy  Vulnerability /Lethality  Division , 
BEL. 
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COMPUTER  MAN 


Figure  5.  A Visual  Representation  of  a Computer  Man  Description 
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positioned  entirely  within  the  first  quadrant  with  the  origin  serving  as 
one  of  its  vertices.  The  cellular  structure  for  each  Computer  Man  cross 
section  extends  to  the  edges  of  the  box.  As  a result,  many  cells  are 
incorporated  into  the  Computer  Man  model  which  represent  air  space. 

These  cells  are  identified  with  zeros.  Each  cell  within  the  body  box 
can  be  referenced  in  computer  memory  by  a unique  set  of  I,J»K  coordi- 
nates. Since  ray  tracing  is  conducted  in  real  space  it  is  necessary  to 
have  a real  characterization  of  the  model.  The  specific  dimensions  of 
the  body  box  and  body  cells  are  listed  for  both  models  in  Table  I. 

G.  Cross-Sectional  Oddities 


1.  Arms . In  viewing  arm  slices  of  the  Computer  Man,  some  peculiar- 
ities are  apparent  in  both  the  lethality  and  incapacitation  models.  It 
appears  that  the  left  and  right  arm  slices  are  not  equally  spaced  with 
respect  to  the  torso.  One  arm  will  appear  to  be  merged  with  the  torso 
while  the  opposite  arm  will  be  separated  from  the  torso  by  two  or  three 
units.  The  condition  varies  from  slice  to  slice  but  is  evident  on  most 
of  the  cross  sections  taken  in  this  region.  There  are  three  explana- 
tions for  this. 

a.  The  shoulder  slices  do  not  fit  into  the  grid  system  in  a 
symmetrical  fashion.  Therefore  the  arms  are  misaligned  relative  to  one 
another  from  the  initial  point  where  they  are  attached  to  the  shoulders. 

b.  The  arms  are  intentionally  raised  slightly  upward  and  outward 
from  the  body  to  correct  the  condition  where  the  hands  would  otherwise 
overlap  the  hips. 

c.  The  third  reason  lies  in  the  cells  comprising  the  torso. 

The  torso  cross  sections  are  not  all  of  the  same  column  and  row  width, 
thus  after  stacking  every  body  cell  on  or  adjacent  to  the  perimeter  on 
one  slice  does  not  necessarily  have  a body  cell  adjoined  on  the  slice 
above  or  below  it. 

2.  Torso.  The  outline  of  cells  which  form  the  perimeter  of  the 
Computer  Man  on  each  slice  viewed  may  not  always  look  symmetrical;  that 
is,  some  cells  or  a number  of  consecutive  cells  may  appear  to  be  missing 
Actually  they  are  not.  The  reason  for  this  is  that  the  entire  grid 
square  is  allocated  even  if  only  a small  portion  of  body  tissue  would 
overlap  the  edge  of  this  square,  and  thus  when  translated  into  its 
numeric  or  mosaic  configuration,  produces  a jagged  perimeter.  This 
condition  is  primarily  evident  in  the  torso  section. 

Finally,  as  stated  earlier,  erratic  differences  in  physical  dimen- 
sions from  slice  to  slice  are  inherent  due  to  the  fact,  that  cross- 
sections  taken  from  the  human  anatomy  were  not  all  taken  from  the  same 
man, but  in  fact  represent  a number  of  different  individuals.  The  result 
is  a Computer  Man  misaligned  in  some  areas. 
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IV.  COMPUTER  MAN  FILES 


A.  Card  Description 

The  initial  step  in  storing  doctors ' assessments  was  conducted  by 
generating  a card  file.  This  was  done  by  copying  the  doctors'  assess- 
ments for  each  gridded  cross  section  provided  onto  card  coding  sheets 
and  in  turn  onto  punched  cards. 


In  the  case  of  incapacitation,  a card  description  of  the  Computer 
Man  was  not  constructed  because  an  accurate  target  description  already 
existed.  However,  the  scheme  discussed  here,  defined  for  lethality,  is 
applicable  to  both  models. 

A card  file  was  generated  by  placing  the  arguments  NUM  and  SIG  on 
each  card  where: 


(1)  NUM  * slice  number  given  in  Eycleshymer  and  Schoemaker. 

(2)  SIG  = a code  number  denoting  the  type  of  card  being  read. 

-1  - denotes  a set  of  positioning  parameters. 

1 - denotes  the  first  23  entries  to  a given  row  follow. 

2 - denotes  the  second  23  entries  to  a given  row  follow. 

3 - denotes  the  third  23  entries  to  a given  row  follow. 

4 - denotes  the  fourth  23  entries  to  a given  row  follow. 

5 - denotes  the  fifth  23  entries  to  a given  row  follow. 

The  initial  card  (first  card)  which  precedes  each  slice  description 

contains  six  additional  arguments  MNR,  MXR,  MNC,  MXC,  NCOL,  NROW,  which 
assist  in  positioning  the  scores  in  the  matrix  A(I,J)  that  stores  each 
slice  description  where: 

(3)  MNR  = minimum  row  number  in  submatrix. 

(4)  MXR  = maximum  row  number  in  submatrix. 

(5)  MNC  = minimum  column  number  in  submatrix. 

(6)  MXC  = maximum  column  number  in  submatrix. 

(7)  NCOL  = number  of  columns  in  submatrix. 

(8)  NROW  = number  of  rows  in  submatrix. 
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Immediately  following  the  slice  arguments  are  the  scores  associated 
with  the  grid  cells  that  are  present  on  each  row  defined  on  the  cross- 
section.  The  cards  which  contain  doctor  assessments  are  called  score 
cards.  For  a fixed  grid  mesh  the  number  of  score  cards  necessary  to 
describe  each  individual  slice  is  dependent  on  two  factors:  (1)  the 
row  and  column  width,  and  (2)  the  I/O  format  chosen. 

For  any  given  slice,  score  cards  are  arranged  in  the  file  rowwise 
in  accordance  with  the  following  procedure.  The  card  associated  with 
the  posterior  and  left  most  portion  of  the  Computer  Man  was  stacked  im- 
mediately behind  the  first  card  (refer  to  Fig.  7).  All  the  cards  neces- 
sary to  describe  the  back  row  follow  consecutively  until  the  right  most 
portion  of  his  body  is  completed.  For  lethality,  two  cards  are  suffi- 
cient to  describe  the  row  with  the  largest  number  of  entries.  The  next 
row  and  each  subsequent  row  that  follows  were  stacked  in  the  same  manner 
until  the  last  card,  the  card  pertaining  to  the  front  row  and  right  most 
portion  of  his  body,  was  placed.  The  score  cards  consist  of  only  the 
codes  which  pertain  to  body  tissue.  The  remaining  cells  which  are  scored 
as  zeros  are  omitted.  Each  succeeding  slice  description  was  then  stacked 
in  numerical  order  behind  its  predecessor  until  all  slices  were  filed. 

The  card  format  of  cross  sections  representing  the  initial  three  cuts 
taken  in  the  head  is  illustrated  in  Fig.  8.  The  matrix  in  Fig.  9 illus- 
trates the  positioning  of  a representative  slice  (slice  2)  inside  the 
array  A(I,J)  using  the  positioning  parameters  specified  on  the  first  card. 

In  building  the  Computer  Man,  slice  positioning  was  difficult  be- 
cause each  row  of  a given  slice  varied  in  width.  So  to  simplify  matters, 
the  character  "B"  was  chosen  to  fill  in  cells  in  the  grid  mesh  which  did 
not  contain  anatomical  tissue,  but  could  be  used  to  square  off  a sub- 
matrix, thus  giving  each  row  of  a given  slice  an  equal  number  of  cells 
and  each  score  card  an  equal  number  of  score  positions.  This  technique 
facilitated  positioning  the  submatrix  inside  A(I,J). 

Four  card  files  were  constructed,  one  for  each  time  frame  stipulated. 
Each  card  file  was  divided  into  N sections  where  N is  the  number  of 
separate  doctors'  assessments  provided  for  each  time  frame.  The  sections 
can  be  organized  in  various  ways  but  for  assignment  to  disc  storage  they 
must  be  grouped  as  illustrated  in  Fig.  10. 

B.  Tape  Description 

Tabs  were  made  of  the  card  description  and  corrections  were  entered 
when  errors  were  revealed.  The  inspection  and  correction  process  was 
continued  until  an  accurate  description  was  obtained.  Finally,  each  card 
file  was  loaded  onto  magnetic  tape  for  permanent  storage. 

By  storing  the  target  description  on  an  auxiliary  peripheral,  such 
as  a tape  or  disc,  and  reading  selected  portions  into  core,  when  needed, 
the  usage  of  the  Computer  Man  can  be  fully  accommodated  with  reasonable 
efficiency. 
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Figure  7.  An  Illustration  Depicting  the  Ordering  Procedure  Employed  in  Generating  Card  Files 
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Figure  8.  Card  Format  of  Cross  Sections  Representing 
the  Initial  Three  Cuts  Taken  in  the  Head 
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Second  Doctor's 
Assessment 


First  Doctor's  Assessment 


Figure  10.  Card  File  Configuration 
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In  early  descriptions  some  doctors  extended  the  range  of  scoring 
by  using  0 as  the  lowest  lethality  score.  This  caused  a problem  because 
no  distinction  could  be  made  between  the  minimum  lethality  score  and 
code  designated  to  represent  air  space.  To  resolve  the  problem  each 
doctor's  assessment  was  increased  by  1,  thus  shifting  the  range  of  scor- 
ing from  0-10  to  1-11.  Shortly  afterwards  the  minimum  lethality  score 
was  dropped.  A tape  translation  program  was  written  to  facilitate  these 
changes  without  having  to  punch  new  cards.  In  the  revised  edition  the 
scores  range  in  value  (2-11). 

The  steps  required  for  reading  each  cross  section  of  the  Computer 
Man  into  computer  memory  from  tape  are  outlined  below: 

(1)  find  SIG. 

(2)  zero  A(I,J) . 

(3)  read  in  positioning  parameters  defined  on  first  card. 

(4)  read  in  codes  and  position  submatrix  in  A(I,J)  designated  by 
MNR,  MXR,  MNC,  MXC. 

Since  slice  descriptions  were  filed  in  the  manner  discussed  in 
Section  VI-A,  this  arrangement  causes  the  Computer  Man  to  be  loaded  into 
a right-hand  coordinate  system  as  illustrated  in  Fig.  6-A. 

The  following  instructions  reads  each  slice  into  A(I,J)  rowwise; 
where  A(I,J)  is  equivalent  into  PLANE1(I,J). 

READ  (4,00)  NUM, MNR, MXR, MNC, MXC 

100  FORMAT ( I 3, 2X, 4 I 4) 

DO  2000  J=MNR,MXR 

READ (4 ,101) (PLANE 1 (I , J) , I=MNC,MXC) 

101  FORMAT (5X, 231 3) 

2000  CONTINUE 

By  merely  reversing  the  order  in  which  row  entries  are  stored  in 
PLANE1(I,J)  the  Computer  Man  can  be  assembled  in  a left-hand  coordinate 
system.  If  the  latter  is  chosen  the  instructions  required  to  do  this 
would  be  as  follows: 

DO  2000  J=MNR,MXR 

DO  2000  I=MNC,MXC 

L=50-I 
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2000  READ(4,101) (PLANE1 (L,J) ) 

101  FORMAT (5X, 2313) 

C.  Disc  Description 

The  Ballistic  Research  Laboratory's  Electronic  Scientific  Computers 
(BRLESC  I,  II)  have  the  capability  to  store  large  quantities  of  data  on 
a direct  access  disc.  The  advantage  that  disc  storage  offers  is  random 
access,  in  that  selected  portions  of  information  can  be  accessed 
directly  without  reading  over  extraneous  information  which  in  turn  re- 
sults in  less  computer  run  time  and  improved  program  efficiency.  Tapes 
are  a form  of  sequential  access  and  are  fine  for  permanent  storage  but 
not  for  computational  purposes.  The  user  is  assigned  a private  disc 
pack  which  in  itself  has  a mass  storage  capability  in  excess  of  800,000 
words.  The  surfaces  of  the  disc  are  divided  into  successive  bands  or 
tracks  each  of  which  consist  of  398  words.  For  software  purposes  the 
disc  can  be  divided  into  files  for  storage  of  separate  programs  or  in 
our  case,  separate  target  descriptions,  and  each  file  can  be  subdivided 
into  records.  The  length  of  each  record  cannot  exceed  65,000  words  and 
all  records  must  be  of  equal  length. 

On  account  of  the  large  size  of  the  incapacitation  model  and  the 
number  of  separate  time  frames  required  for  the  lethality  model,  more 
than  one  disc  pack  is  required  to  file  the  descriptions. 

Transferring  the  Computer  Man  description  onto  disc  requires  the 
definition  of  lethality  arrays  consisting  of  (50x35x82)  entries  for  each 
of  the  four  time  frames  stipulated.  To  work  within  the  realm  of  65,000 
words  of  storage  per  disc  record,  the  Computer  Man  was  divided  into 
three  records  with  28  slices/record.  This  generates  147,000  words  of 
disc  storage  (50x35x84)  and  incorporates  two  additional  (dummy)  slices 
in  the  last  record. 

For  incapacitation,  (110x55x82)  entries  are  required.  To  store  a 
target  description  of  this  size  requires  in  the  order  of  a half  million 
words . The  number  of  slices  per  record  must  be  lessened  to  accommodate 
a larger  grid  matrix,  which  in  turn  increases  the  number  of  records  re- 
quired. The  choice  of  14  records,  allotting  six  slices/record,  yields 
a total  of  84  slices  (82  real  + 2 dummy). 

To  generate  disc  storage  for  the  Computer  Man  the  following  specifi- 
cation statements  must  appear  in  the  disc  load  routines: 

INCAPACITATION:  LETHALITY: 

DATA  DISC2 /10H55D22  CMAN/  DATA  IDD/10H50D21  BODY/ 

DATA  FILE2/10HINCAP  BODY/  DATA  IDF/10HBODY  / 

COMMON  MAN2 (110,55,6)  NAME2(4)  COMMON  MAN  (50,35,28)  NAME (4) 
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The  following  subroutine  opens  the  disc  and  must  appear  before  any 
Other  direct  access  disc  subroutine  is  used. 

CALL  DISCDL  (IDSC,  IAVL,  ICW,  'NEW  DISC') 

(1)  IDSC  is  the  I/O  system  unit  number. 

(2)  IAVL  is  the  address  where  the  program  disc  label  is  stored. 

(3)  ICW  is  the  name  given  to  the  user's  disc  pack. 

(4)  'NEW  DISC'  is  necessary  for  the  initial  run  whenever  a new 
disc  pack  is  used;  it  must  be  removed  from  the  argument  list 
in  succeeding  runs. 

INCAPACITATION:  CALL  DISCDL(3,NAME2,DISC2, 'NEW  DISC') 

LETHALITY:  CALL  DISCDL  (3, NAME , IDD , ' NEW  DISC') 

Before  reading  or  writing  can  begin  the  disc  files  must  first  be 
defined . 

CALL  DISCDF (IFIL, LOR, NT, IAV, K) 

(1)  IFIL  - the  name  given  to  the  file. 

(2)  LQF  - length  of  each  record  in  the  file. 

(3)  NT  - number  of  disc  tracks  required. 

(4)  IAV  - variable  associated  with  IFIL  (dummy  argument) . 

(5)  K - flag  which  will  permit  or  prevent  reading  or  writing 

from  unwritten  records. 

INCAPACITATION:  CALL  DISCDF  (FILE2 , 36300, 1288, IDUMMY,0) 

LETHALITY:  CALL  DISCDF  (IDF, 49000, 372, IDUMMY ,0) 

In  order  to  read  or  write  on  the  disc  the  following  subroutines 
are  used: 

CALL  DISCRD  (IFIL, IF, NR, A) 

CALL  DISCWT  (IFIL, IR, NR, A) 

(1)  IFIL  - the  name  given  to  the  file. 

(2)  IF  - the  record  number  where  reading  or  writing  is  to 

start . 
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(3)  NR  - the  number  of  consecutive  records  to  transmit. 

(4)  A - the  memory  address  where  reading  or  writing  begins. 

INCAPACITATION:  CALL  DISCDF  (FILE2, RECORD, 1,MAN2) 

CALL  DISCWT  (FILE2, RECORD, 1,MAN2) 
record  varies  (1  - 14) 

LETHALITY:  CALL  DISCRD  ( IDF, RECORD, 1, MAN) 

CALL  DISCWT  ( IDF, RECORD, 1, MAN) 
record  varies  (1-3) 

In  cases  where  information  is  transferred  between  two  separate  disc 
packs  the  system  subroutine  DISCSU  is  needed  and  must  precede  each  disc 
read  or  write  where  a change  in  disc  packs  occurs. 

CALL  DISCSU  (IDISC) 

where  IDISC  is  the  system  unit  number  for  that  particular  disc. 


V.  COMPUTER  MAN  PROGRAMS  - LETHALITY 
A.  Disc  Load  and  Average  Score  Programs 

1.  Discussion.  The  Disc  Load  program  loads  the  lethality  descrip- 
tion of  the  Computer  Man  onto  the  disc  from  tape  and  prints  out  the  disc 
description  of  the  Computer  Man  in  its  numeric  representation  for  each 
doctor's  evaluation  given  for  a specified  time  frame. 

Slice  descriptions  provided  on  cards  and  tape  are  arranged  as  shown 
in  Fig.  10.  With  respect  to  time  frames  that  require  additional  assess- 
ments, those  assessments  would  follow  in  the  order  given.  Fig.  11  illus 
trates  the  disc  layout  of  the  Computer  Man  after  splicing  and  grafting 
of  slices  is  performed.  The  disc  load  program  is  comprised  of  sub- 
routines used  to  assemble,  store  and  output  the  target  description.  A 
description  of  each  subroutine  used  is  given.  The  system  subroutines 
utilized  on  BRLESC  are  not  listed  in  this  report  but  can  be  referenced 
in  the  BRLESC  FORTRAN  IV  manual.3  Flow  charts  and  programs  complement 
the  documentation  and  are  included  in  Appendix  D. 

The  Average  Score  program  averages  the  individual  doctors'  evalua- 
tions for  each  Computer  Man  cell  and  loads  the  average  scores  back  onto 
the  disc.  Subroutines  (UNLOAD  and  OUTPUT)  listed  in  this  section  per- 
form the  essential  functions  of  the  program. 

W.  Lloyd  Campbell , Glenn  A.  Beck,  BRLESC  I/II  FORTRAN , Technical 
Report  No.  5,  Aberdeen  Proving  Ground , MD  1970.  (AD  #704343) 
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LAYOUT  OF  COMPUTER  MAN  (LETHALITY) 


SLICE  NO. 

ANATOMICAL  SECTION 

DISC  RECORD  NO. 

(1-28) 

Lags 

1 

(29-33) 

Lags 

(34-36) 

Lags,  Arms 

2 

(37-56) 

Arms,  Torso 

(57-64) 

Arms,  Torso 

(65-82) 

Head 

3 

(83-84) 

Dummy  Slices 
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2.  Main  Routine.  Definition  of  symbols  and  matrices. 

M:  position  in  subroutine  (PACK, UNPACK)  that  is  being 

loaded  or  unloaded  with  a score.  It  is  synonymous 
to  the  doctors'  interpretation  number,  M « 1,2,3 

L:  relative  disc  record  number,  L = 1,2,3 

K:  slice  number  within  any  record,  K = 1-28 

NDE:  number  of  doctor  evaluations  provided  for  this 

time  frame. 

NTEST:  sample  selection  flag.  If  this  flag  is  set,  the 

scores  stored  on  disc  in  Vector  (10)  array  are 
printed  out  for  a cell  with  preassigned  (I,J,K) 
coordinates. 

MAN(50, 35,28) : target  matrix  in  which  one-third  (one  record 
of  the  Computer  Man  description  for  an  individual 
assessment)  is  stored. 

PLANE1(50,35) : work  array  containing  the  slice  by  slice 
description  of  the  Computer  Man. 

PLANE2(50, 35) : work  array  necessary  for  temporary  storage  of 
scores . 

VECTOR(IO):  array  utilized  by  subroutines  (LOAD, UNLOAD)  for 
storage  of  unpacked  scores. 

PROCEDURE:  Initially  this  subroutine  erases  each  record  file 
before  disc  writing  begins.  The  cell  description  of  the  Computer  Man  is 
transferred  from  tape  to  disc  for  each  doctors'  interpretation  (M)  and 
proceeds  as  follows:  The  head,  neck  and  upper  portion  of  the  torso, 
slices  (1-26),  are  read  into  active  memory  (PLANE1(50,35))  via 
(SUBROUTINE  INPUT).  Each  integral  score  in  each  slice  description  is 
packed  into  the  (M)th  position  of  a word  (SUBROUTINE  LOAD)  and  this 
word  is  stored  as  an  entry  in  the  array  MAN (50, 35, 28) . The  first  26 
slices  are  transferred  to  disc  and  stored  in  the  highest  record  on  file. 
This  action  provides  for  two  dummy  slices  required  to  complete  the 
third  section.*  The  initial  portion  of  the  second  section,  slices 
(27-44),  is  loaded  onto  disc  in  the  same  fashion  as  section  one  was 
loaded.  The  remaining  slices,  slices  (50-113),  are  descriptions  of  the 
Computer  Man's  arms  and  legs  and  are  dealt  with  in  a different  fashion. 

At  this  point  the  partial  disc  description  of  the  Computer  Man  is  read 
back  into  core,  one  section  at  a time,  beginning  with  the  highest  record. 

* 

the  terms  sections  record  and  cube  care  synonymous  in  useage. 
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The  arm  and  leg  slices  which  are  present  in  each  section  are  read  in 
from  tape,  reflected  (SUBROUTINE  REFLECT1, REFLECT2) , to  generate  an 
identical  set  of  scores  relating  to  the  opposite  arm  and  leg,  and 
finally  attached  to  the  body  segments  that  appear  in  the  same  section 
(SUBROUTINE  GRAFT).  The  section  currently  loaded  in  core  is  written 
back  onto  disc  and  the  section  that  follows  is  read  in.  This  is  done 
for  the  three  sections  that  contain  the  man.  The  above  procedure  is 
repeated  until  all  doctor  evaluations  have  been  loaded. 

It  is  important  to  understand  that  the  highest  disc  record  (3) 
must  be  loaded  first,  followed  by  disc  record  (2)  and  disc  record  (1) 
respectively.  This  is  necessary  to  ensure  that  the  direction  in  which 
indexing  is  conducted  in  the  output  subroutine  (Z=l,2,3, . . .84)  is  in 
agreement  with  the  manner  in  which  the  Computer  Man  is  positioned  in 
the  xyz  coordinate  system. 

3.  Subroutine  LOAD.  This  subroutine  packs  all  doctor's  scores 
pertaining  to  a particular  cell  into  one  word  and  stores  this  word  as 
an  entry  in  the  array  MAN(I,J,K).  This  is  done  for  the  three  sections 
required  to  describe  the  Computer  Man. 

4.  Subroutine  GRAFT.  This  subroutine  is  used  to  attach  the  Com- 
puter Man's  arm  and  leg  slices  to  their  adjoining  segments  of  the  body. 
It  can  graft  any  slice  onto  another  slice.  If  an  overlap  between  body 
segments  occurs  on  any  integrated  slice,  the  more  critical  score  is 
kept. 


5.  Subroutine  INPUT.  This  subroutine  reads  the  card  description 
of  the  Computer  Man  from  tape  and  places  it  in  active  memory  in  a work 
array  PLANE1 (50, 35)  for  manipulation  and  assignment  onto  disc.  When 
reading  is  completed  the  current  slice  number  (NUM)  is  printed  out. 

The  arguments  involved  in  reading  are  defined  as  follows: 

(1)  NUM  = slice  or  plane  number. 

(2)  MRX  = maximum  number  of  rows  for  this  slice. 

(3)  MNR  = minimum  number  of  rows  for  this  slice. 

(4)  MXC  = maximum  number  of  columns  for  this  slice. 

(5)  MNC  = minimum  number  of  columns  for  this  slice. 

(6)  PLANE1 (50, 35)  contains  the  doctors'  evaluation  for  each 
cell  on  a given  slice. 

6.  Subroutine  REFLECT1.  This  subroutine  reflects  the  left  arm 
slices  to  generate  right  arm  slices.  The  y axis  and  the  line  X=50  are 
used  as  reference  points.  It  is  called  each  time  a new  arm  slice  is 
read  in  . 
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7.  Subroutine  REFLECT2 : This  subroutine  reflects  the  left  leg 
slices  to  generate  right  leg  slices.  The  y axis  and  the  line  X*50  are 
used  as  reference  points.  It,  also,  is  called  each  time  a new  leg 
slice  is  read  in. 

8.  Subroutine  UNLOAD.  This  subroutine  unpacks  the  Computer  Man 
description  and  is  used  in  conjunction  with  subroutine  OUTPUT  whenever 
a Computer  Man  printout  is  required.  All  doctors'  evaluations  assigned 
to  each  individual  cell  are  stored  and  packed  in  one  word  on  disc.  The 
packed  score's  associated  with  each  cell  are  expanded  into  an  array 
(VECTOR)  with  one  evaluation  per  word.  The  scores  presented  in  this 
aray  are  averaged  (rounded  to  the  nearest  integer)  and  this  average 
score  is  stored  in  the  tenth  position.  At  this  point,  if  NTEST  is  set, 
each  score  in  VECTOR  array  with  cell  coordinates  (15, 15,15)  are  printed 
out  in  order  to  check  individual  scores  and  verify  averaging  calcula- 
tion. The  scores  in  VECTOR  are  repacked  into  one  word  and  this  entry  is 
loaded  back  into  MAN (50, 35,28) . Subsequently,  the  main  routine  will 
transfer  both  the  individual  and  average  scores  back  onto  disc.  The 
average  scores,  being  representative  of  all  doctors'  assessments,  are 
reserved  for  utilization  in  subroutine  OUTPUT. 

Space  is  provided  for  assignments  of  up  to  nine  doctors'  evalua- 
tions for  each  cell  defined.  The  only  programming  change  required  is  to 
update  a data  card  listed  in  the  main  program,  /NDE/ (number  of  doctors' 
evaluations) . This  change  will  calculate  the  correct  average  score  if 
the  number  of  doctors'  evaluations  increase.  The  Computer  Man  con- 
figuration is  constructed  in  three  dimensions  in  this  fashion  for  each 
cross  section  of  the  human  anatomy  defined.  This  subroutine  is  called 
three  times  since  the  target  description  is  assigned  to  three  records. 

9.  Subroutine  OUTPUT.  This  subroutine  outputs  the  disc  descrip- 
tion of  the  Computer  Man  in  numeric  representation  on  an  xy  plane  for 
each  slice  defined.  The  target  description  is  stored  on  disc  in  ex- 
panded rather  than  compressed  format  as  is  on  tape.  Thus  v&ords  used 

to  indicate  air  space  internal  to  the  Computer  Man  box  are  included  and 
scored  as  zeros. 

Also,  this  subroutine  shifts  the  data  such  that  the  scores  can  be 
printed  out  in  the  range  indicated  in  Table  II. 


32 


Value  Stored 
on  Disc 


Table  II 


Computer  Man 
Listing 


0 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 


Blank 

1 — : > minimum  score 

2 

3 

4 

5 

6 

7 

8 
9 

0 — > maximum  score 


This  can  be  accomplished  easily  if  the  converted  scores  are  translated 
into  their  character  representation  and  printed  out  under  A2  format. 
Care  must  be  utilized  in  calculating  (K) , the  pointer  to  the  numeric 
list  where  character  entries  are  stored.  If  erroneous  data  is  trans- 
ferred onto  disc  due  to  missed  punched  cards,  an  exceedingly  large 
index  could  result  which  would  point  to  a location  outside  the  boundary 
of  the  character  array  resulting  in  erroneous  output.  Therefore  it  is 
essential  to  check  the  value  of  K to  ensure  that  it  is  within  limits. 

It  is  important  to  note  that  in  this  subroutine  for  the  Computer 
Man  to  be  assembled  in  its  correct  perspective  in  reference  to  the  xy 
axis,  all  DO  loops  that  control  output  must  decrement  instead  of  incre- 
ment. This  is  done  to  compensate  for  the  fact  that  the  lineprinter 
cannot  start  printing  at  the  bottom  of  a page  and  work  up,  only  from 
the  top  and  work  down . 

B.  Change  Value  Program 

1.  Discussion . The  change  value  program  was  written  to  modify 
entrees  in  the  disc  description.  It  should  be  used  when  the  number  of 
scored  cells  that  require  modification  are  relatively  few.  It  is  a 
convenient  tool,  particularly  in  cases  where  doctor  interpretations  are 
missing  (princiaplly  with  cells  comprising  the  perimeter  of  the  torso) 
and  where  erroneous  data  is  detected.  The  maximum  number  of  points 
that  this  program  can  accommodate  is  10;  but  the  program  can  be  easily 
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modified  to  accommodate  a larger  number  of  ceils.  If,  however,  it  is 
desired  to  modify  entire  slices  it  is  more  practical  to  make  the  neces 
sary  corrections  in  the  card  description  and  rerun  the  lethality  disc 
load  program, 

2.  Main  Routine.  Inputs  required: 

MAXPTS  : total  number  of  points  to  be  modified. 

DOCINT(IO):  doctor  interpretation  numbers, 

IREC(IO)  : relative  record  numbers  (1-3). 

ISLICE(IO):  slice  numbers  (1-82);  i.e.»  K- coordinates. 

NEWVAL(IO):  value  of  new  scores  (1-10). 

IX(10)  : I-coordinate  associated  with  each  modified  score 

IY(10)  : J-coordinate  associated  with  each  modified  score 

The  input  parameters  are  specified  in  data  statements;  as  such 
read  and  format  statements  are  nof  necessary. 

Matrices  required: 

MAN (50, 35,28) : Computer  Man  section  currently  loaded, 

PLANE2 (50, 35) : work  array  associated  with  original  slice. 

PLANE (50, 35)  : work  array  that  contains  updated  value. 

A list  of  program  instructions  to  be  executed  for  each  score  re- 
quiring modification  is  given  as  follows: 

(1)  utilizing  data  input,  read  in  correct  disc  reqord. 

(2)  store  slice  number,  doctor  interpretation  number,  and  (I,J) 
coordinates  for  subsequent  use. 

(3)  unpack  doctors  score  from  MAN(I,J,K). 

(4)  store  in  output  buffer  (PLANE (I, J)) , 

(5)  print  out  slice  description  with  original  score. 

(6)  increment  updated  score. 
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(7)  Print  out  slice  description  with  updated  score. 

(8)  Load  target  matrix,  MAN(I,J,K)  back  onto  disc. 

When  the  loop,  (DO  100  N«l,  MAXPTS)  has  been  completed  all  scores 
input  have  been  modified.  Program  flow  charts  and  listings  are  provided 
in  Appendix  D. 

3.  Subroutines.  The  subroutines  used  in  this  program  (LOAD,  UNLOAD, 
OUTPUT)  are  duplicates  of  the  subroutines  used  in  the  lethality  disc 
load  program  and  therefore  will  not  be  discussed  here. 

C.  Tape  Translation  Program 

1.  General.  The  purpose  of  the  tape  translation  program  is  three- 
fold. It  converts  the  tape  image  of  the  card  description  of  the  Computer 
Man  into  a more  acceptable  form  for  disc  storage.  It  tests  first  card 
parameters  for  consistency  and  makes  corrections,  when  errors  are  de- 
tected and  can  be  corrected.  It  contains  provisions  which  allow  cor- 
rections to  be  input  by  the  programmer. 

2.  Inputs . The  following  correction  cards  apply  when  corrections 
are  to  be  input  by  the  programmer.  If  corrections  are  necessary,  set 
CORRECTION  = . TRUE  . . A single  correction  card  will  be  included  for 
each  line  that  requires  a change.  If  it  is  necessary  to  change  a first 
card  parameter,  then  two  cards  are  required  as  outlined  below. 

CARD  1 INDEX1 , INDEX2,  ITEM,  JUMP,  INDEX3 


Format  (515) 


INDEX1 

INDEX2 

ITEM 

JUMP 

INDEX3 


the  slice  number  to  be  changed, 
argument  index  number  on  the  score  card, 
the  new  value  it  is  to  assume. 

the  line  number  relative  to  the  previous  first  card, 
i.e.,  first  card  =1. 

action  flag. 

INDEX3=8  - change  a single  entry.  . 

INDEX3=9  - insert  a new  first  card  described  by  the 
next  card. 


CARD  2 ROW(I) ,1=1,8 

Format  (13, 12,414, 4X, 2 14) 
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INDEX3=10  - apply  no  more  corrections 
3 . Definitions  of  Variables  and  Matrices. 

ROW(I) ,1*1,25  - this  array  contains  slice  data. 

If  the  card  read  is  a first  card  then  the  following  is  true: 
ROW(l)  - slice  number  (1-113) 

ROW(2)  - (-1) 

ROW (3)  - starting  row  number 
ROW (4)  - finishing  row  number 
ROW (5)  - starting  column  number 
ROW(6)  - finishing  column  number 
ROW (7)  - number  of  columns 
ROW(8)  - number  of  rows 
ROW (9)  - unused 

ROW (25)  - unused 

If  the  card  read  is  a portion  of  the  cell  description  then 
the  following  is  true: 

ROW(l)  - slice  number  (1-113) 

ROW (2)  - 1 or  2 

ROW (3)  - lethality  score 

ROW(25)  - lethality  score 

NEWROW(I) ,1=1,8  - this' array  contains  the  first  card  entries 

input  by  the  programmer . 

KARD  - the  number  of  lines  (score  cards)  read  for  a given 
cross  section . 
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NUMCARDS  - number  of  even  cards  for  a given  row  description 
(an  even  card  consists  of  a fill  23  entries). 

RES  - number  of  left  over  entries  for  a given  row  description 
(1-22)  . 

CORRECTION  - correlation  flag  indicator.  If  corrections  are  to 
be  entered  CORRECTION  is  set  to  TRUE. 

FLAG  - correction  completion  flag.  When  FLAG  = TRUE  all 
correction  cards  have  been  read. 

4.  Procedure . Each  slice  description  is  read  in  from  the  input  tape 
containing  the  card  description  of  the  Computer  Man.  Tape  reading  is 
performed  on  a line  by  line  basis  inasmuch  as  there  is  a one  to  one  corres- 
pondence between  cards  in  the  card  file  and  lines  in  the  tape  file. 

The  status  of  CORRECTION  is  an  input  parameter.  FLAG  is  initialized 
FALSE  in  the  program. 

The  program  prints  the  heading  for  the  output  listing  in  the 
following  format. 

'ROW  AND  COLUMN  ARE  A CHECK  ON  THE  PARAMETERS  THAT  POSITION  THE  SUB- 
MATRIX WITHIN  THE  SLICE’ 

'THIS  PROGRAM  EDITS  THE  FIRST  CARD  PARAMETERS' 

If  changes  in  the  slice  arguments  or  cell  description  are  to  be 
made,  correction  cards  are  read  in  at  this  point. 

The  positioning  parameters  on  each  first  card  entry  are  tested  by 
using  the  following  set  of  algebraic  equations. 

TEMP  = R0W(8) -R0W(4) +R0W(3) -1  (row  count). 

TEMP  = R0W(7) -ROW (6) +ROW (5) - 1 (column  count). 

The  error  (TEMP)  of  each  row  and  column  count  is  calculated  and 
printed  out  in  the  following  manner: 

'SLICE'  K 'ROW  COUNT  OFF  BY'  TEMP. 

'SLICE'  K 'COLUMN  COUNT  OFF  BY'  TEMP. 

Where  K is  equal  to  the  slice  number  specified  in  R0W(1)  and  TEMP 
is  the  amount  (more  or  less),  the  calculated  row  and  column  counts  differ 
from  the  values  specified  in  R0W(7)  and  R0W(8).  If  TEMP  is  negative. 
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the  finishing  row  or  column  must  have  the  absolute  value  of  the  error 
added  to  it;  if  positive,  the  difference  is  subtracted  from  it.  This 
feature  is  important  inasmuch  as  the  positioning  parameters  control  how 
the  Computer  Man  is  stacked.  An  error  indicates  the  possibility  that 
a row  or  column  would  be  shaved  off  the  cross  section  when  it  is  read 
into  A(I,J).  The  finishing  row  and  column  parameters  are  corrected, 
if  in  error.  The  number  of  even  cards  (NUMCARDS)  are  calculated  for  a 
given  row  in  the  slice  description  along  with  the  number  of  left  over 
entries  (RES) . NUMCARDS  and  RES  are  constant  for  all  rows  defined  on 
a given  slice.  At  this  point  a check  is  made  to  see  if  any  default 
conditions  exist.  Default  conditions  are  defined  as  follows: 

(1)  R0W(2)  * (-1). 

(2)  The  calculated  number  of  score  positions  does  not  agree 
with  the  specified  number  given  in  R0W(7). 

A default  condition  will  print  out  an  error  message  in  the  fol- 
lowing format  and  terminate  execution  of  the  program. 

ITEM:  xxxE RRORxxxC ARD  CHECK 


COMPUTED  NUMBER  OF  ENTRIES 


■ INPUT  NUMBER  OF  ENTRIES  ON  SLICE 


COMPUTER  NUMBER  OF  CARDS  WITH  LEFTOVER 


If  a default  condition  does  not  exist  the  following  message  is 
printed  indicating  that  the  slice  arguments  are  acceptable. 

'NUMBER  OF  EVEN  CARDS  PER  ROW  (NUMCARDS)  WITH  RES  LEFT  OVER' 

The  program  proceeds  to  read  in  the  succeeding  scores  associated 
with  the  first  card  parameters  in  question.  If  a correction  is  indi- 
cated for  a score  positioned  on  the  line  currently  being  read,  it  is 
inserted  at  this  point. 

Each  score  is  converted  from  its  character  representation  to  its 
integer  representation  via  (DECODE)  and  incremented.  This  shifts  the 
range  of  scores  to  (2-11).  Also,  it  is  necessary  at  this  point  to 
remove  each  'B',  otherwise  when  read  into  BRLESC  memory  a -23  would 
appear  in  the  word  position  where  each  ’ B ' occurred  causing  diffi- 
culties in  loading  the  cell  description  onto  disc.  Therefore  ' B ' is 
converted  to  0.  As  each  line  is  completed  the  converted  version  is 
written  onto  the  output  tape. 

The  output  tape  should  be  tabbed  fully  to  check  for  discrepancies. 
If  errors  are  detected,  a set  of  correction  cards  should  be  made  and 
the  program  should  be  run  with  CORRECTION  equal  .TRUE. . 
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D.  Computer  Man  Delineation  Program 


1.  General ■ There  are  many  instances  in  personnel  vulnerability 
studies  where  our  interest  is  focused  around  vital  organs  or  regions  of 
the  body  apart  from  the  body  as  a whole.  An  example  is  the  design  of 
helmets  where  improved  protective  characteristics  could  ultimately  re- 
duce casualties  resulting  from  head  injuries.  In  applying  the  Computer 
Man  modeling  technique,  we  would  only  be  concerned  with  the  rays  which 
penetrate  the  head  slices  of  the  Computer  Man.  This  program  was  written 
for  this  purpose.  It  delineates  any  desired  region  of  any  given  dimen- 
sions inside  the  body  box  and  loads  only  the  delineated  region  onto  a 
new  disc  file.  A modification  of  the  ray  tracing  program  (RAYMAN)  will 
assess  the  disc  file  containing  the  modified  Computer  Man  description. 
Any  number  of  sections  can  be  used  to  approximate  the  desired  region 
with  two  restrictions:  (1)  the  coordinates  chosen  for  each  section  must 
define  the  vertices  of  a rectangular  box,  and  (2)  in  generating  each 
section: 


12  >_  II 
J2  >_  J1 
K2  >_  K1 
2 . Inputs . 

CARD  1 NUM,  I SECT,  ISL 

NUM  - the  number  of  rectangular  blocks  required  to  construct 
the  delineated  region. 

ISECT  - the  number  of  disc  records  which  comprise  the  Computer 
Man. 

ISL  - the  number  of  slices  per  record. 

Format  (313) 

CARD  2 II,  12,  Jl,  J2,  Kl,  K2 


CARD  (NUM+1) 

11  - minimum  x coordinate 

12  - maximum  x coordinate 
Jl  - minimum  y coordinate 
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J2  - maximum  y coordinate 
K1  - minimum  z coordinate 


K2  - maximum  z coordinate 

Format  (613) 

Note:  for  NUM  > 1 the  cards  must  be  stacked  in  ascending  order 
with  respect  to  z coordinates. 

3.  Arrays  and  Variables. 

KMAX  - the  last  delineated  slice  in  a section. 

KMIN  - the  first  delineated  slice  in  a section. 

NSLICE(N) ,N=1 , 14  - each  location  in  this  array  contains  the 

number  of  delineated  slices  present  in  each 
section. 

KNUM(N) ,N=1 , 14  - each  location  in  this  array  contains  the 

address  (slice  number)  where  delineation  starts 
relative  to  the  beginning  of  each  section.  It 
is  synonymous  in  meaning  to  KMIN. 

KMR1 (N) ,N=1, 84  - this  array  is  used  to  designate  which  slices  of 
the  Computer  Man  are  delineated. 

KMR2(N) ,N=1, 84  - this  array  is  used  to  designate  where  section 
boundaries  occur. 


MAN1(I,J,K)  - Computer  Man  array. 


4.  Main  Program.  Initially  the  arrays  KNUM,  NSLICE,  KMR1,  KMR2  and 
the  disc  file  reserved  for  the  modified  Computer  Man  description  are 
erased.  The  program  reads  the  input  parameters  defined  on  Card  1 which 
defines  the  upper  limit  (NUM)  for  indexing  delineated  regions.  The  pro- 
gram reads  in  the  card  containing  the  coordinates  for  the  first  deline- 
ated section.  The  contents  of  KNUM,  NSLICE,  KMR1,  KMR2  are  calculated 
(Subroutine  CALSCE)  and  printed  out.  The  cells  which  fall  within  the 
region  defined  by  11,  12,  Jl,  J2  inclusive  are  loaded  into  MAN1(I,J,K) 
for  each  slice  that  is  delineated  within  the  section  currently  in  core. 
The  maximum  and  minimum  values  of  K (KMAX,  KMIN)  which  define  the  slice 
boundaries  for  each  section  are  retrieved  from  KNUM  and  NSLICE.  All  DO 
loops  will  be  executed  once  if  the  upper  and  lower  limits  are  equal. 

The  record  currently  loaded  in  core  is  transferred  to  its  proper  location 
in  the  new  disc  file. 
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The  procedure  is  repeated  until  the  number  of  input  cards  read  con- 
taining section  boundary  coordinates  is  equal  to  the  number  of  defined 
sections  (NUM) . A slice  by  slice  description  of  the  delineated  version 
of  the  Computer  Man  model  is  printed  out. 

5.  Subroutine  CALSE . This  subroutine  sets  slice  markers  in  KMR1 
and  section  boundary  markers  in  KMR2 . The  number  of  delineated  slices 
(KCOUNT)  which  are  present  in  each  section  within  the  region  defined  by 
K2-K1  are  counted  and  the  relative  address  in  each  section  (KN)  where 
the  first  delineated  slice  occurs  is  stored. 

6.  Subroutine  INSERT.  This  subroutine  inserts  the  values  (KCOUNT 
and  KN)  calculated  in  subroutine  CALSCE  in  the  arrays  KNUM  and  NSLICE. 
KSECT  points  to  the  position  in  KNUM  and  NSLICE  where  KCOUNT  and  KN  are 
stored.  KCOUNT  and  KN  are  initialized  before  tracking  begins  in  the 
next  section.  This  subroutine  is  called  each  time  a section  crossing 
occurs  provided  the  sections  fall  within  the  delineated  region. 

E . Instructions  for  Using  Lethality  Programs 

1.  Generate  a card  file  as  described  in  IV-A. 

2-A.  Load  the  card  file  onto  tape. 

2-B.  Tab  the  tape  version  of  the  card  description  and  correct 
errors  in  the  card  file. 

2- C.  Reload  card  file  onto  tape. 

3- A.  Using  the  tape  version  of  the  card  description  as  input  and 

a second  tape  as  output,  run  the  tape  translation  program  with 
the  correction  status  flag  set -FALSE.. 

3-B.  Tab  out  tape  fully.  If  errors  are  detected,  rerun  program 

with  correction  cards  inserted  and  the  correction  status  flag 
set  .TRUE. . 

4.  With  the  tape  containing  the  translated  version  of  the  card 
description  as  input,,  run  the  disc  load  program.  Examine 
individual  doctor's  evaluations. 

5.  If  errors  exist,  run  the  change  value  program  to  correct  errors 
in  evaluations. 

6.  Run  average  score  program. 

7.  If  an  examination  of  body  parts  is  required,  run  Computer  Man 
delineation  program. 
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VI.  COMPUTER  MAN  PROGRAMS  - INCAPACITATION 


The  programs  which  comprise  the  incapacitation  section  involve 
translating  the  incapacitation  model  into  a form  analogous  to  the 
lethality  model  and  redefining  the  disc  file  structure  to  reduce  disc 
access  time. 


The  incapacitation  section  consists  of  the  following  three  programs. 
Model  Repositioning,  Foot  Slice  Addition,  and  Mosaic  Printout.*  The 
flow  charts  and  listings  associated  with  these  programs  are  listed  in 
Appendix  D . 

A.  Model  Repositioning 

1.  Discussion.  Unlike  the  lethality  model  which  was  generated  in- 
house,  the  incapacitation  model  was  generated  earlier  a^id  was  based  upon 
the  casualty  criteria  described  by  Allen  and  Sperrazza.  The  source  of 
the  model  was  a tape  consisting  of  codes  which  identified  anatomical 
tissues.  These  codes  were  organized  on  tape  in  accordance  with  the  tape 
description  generated  for  lethality  as  outlined  in  Section  IV.  The 
original  program  which  assembled  and  loaded  the  incapacitation  man  onto 
disc  positioned  the  Computer  Man  standing  in  a left-hand  coordinate 
system.  This  program  repositions  the  Computer  Man  to  match  that  of  the 
lethality  model  (right-hand  coordinate  system)  and  in  doing  so  enable 
the  mod^l  to  interface  with  the  shotline  trace  program  (RAYMAN)  developed 
by  BRL.  In  addition  the  file  and  record  lengths  were  redefined  to 
reduce  the  I/O  required  by  RAYMAN. 

2.  Definition  of  Matrices. 


WORK (55, 110)  work  arrays  associated  with  original  model 
WORK1 (55,110)  required  for  manipulation  and  storage  of  codes. 


MAN1(55,110)  - target  matrix  associated  with  original  model. 


WORK3(110,55)  - work  array  associated  with  reconstructed  model. 


■ The  "Model  Repositioning"  and  "Foot  Slice  Addition"  programs  are  special 
purpose  programs ; therefore , if  future  incapacitation  models  were  to  he 
constructed  using  the  method  defined  for  lethality  in  Section  IV,  they 
would  not  he  required. 

' F.  Allen  and  J.  Sperrazza,  "New  Casualty  Criteria  for  Wounding  by 
Fragments , Ballistic  Research  Laboratories  Report  No.  996 , 1956.  (CONF) 
(AD  #137681) 

’W.B.  Beverly , " RAN  MAN : A FORTRAN  Computer  Code  for  Tracking  Rays  Through 
a Detailed  Human  Phantom ,"  USA  ARRADCOM  Ballistic  Research  Laboratory 
Report  No.  ARBRL  2030 , Nov  1977.  (AD  #A051057) 
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MAN (55,110,6)  target  matrices  associated  with  reconstructed 
MAN2(110,55,6)  “ model. 


3.  Procedure.  The  original  cell  description  is  read  in  from  disc 
and  stored  in  MAN1 (55 ,110) . Each  slice  description  is  read  individ- 
ually because  each  slice  was  assigned  separate  records  in  the  original 
model.  A new  work  array  W0RK1(55,110)  is  loaded  with  the  cell  descrip- 
tions contained  in  MAN1;  in  loading  this  array  indexing  is  conducted 
in  the  J dimension  in  reverse  order.  Next,  WORK2(55,110)  is  loaded 
from  WORK1(55,110)  with  indexing  conducted  in  the  I dimension  in  reverse 
order.  Reversing  the  loading  order  of  tissue  codes  in  both  the  I and  J 
dimensions,  in  effect,  faces  the  Computer  Man  in  the  opposite  direction. 

The  second  step  required  is  to  invert  the  Computer  Man.  This  is 
done  by  reversing  the  stacking  order.  Concurrently,  the  slice  descrip- 
tions are  regrouped  and  buffered  in  the  array  MAN(55, 110,6)  where 
55x110x6  defines  the  storage  capacity  required  for  one  record  in  the 
translated  version.  The  following  chart  relates  the  disc  file  structure 
of  the  reconstructed  and  original  models. 


Table  3 

DISC  FILE  CONVERSION 


RECORDS 

FILE  1 73-76  19-24  13-18  7-12 

FILE2  1 10  11  12 


CHART 


L"6 

_13~  14 


Note:  As  illustrated  the  new  model  is  composed  of  14  sections  (records) 
as  opposed  to  76;  each  record  consisting  of  six  slices. 

The  third  step  required  in  the  transformation  is  to  rotate  the 
Computer  Man  90  degrees  inside  the  first  quadrant.  This  is  accomplished 
by  interchanging  the  (I,J)  coordinates  of  each  entry  in  the  array 
MAN1 (J, I ,K) , whereby  the  contents  of  each  record  assumes  the  form 
designated  by  MAN(I,J,K). 

Each  record  in  the  new  file  is  constructed  in  this  fashion.  However, 
since  82  slices  represent  the  Computer  Man,  84  defines  the  file,  it  is 
necessary  to  shift  the  Computer  Man  six  slices  in  the  -z  direction  after 
the  last  record  is  loaded.  This  move  will  incorporate  two  dummy  slices 
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above  the  head  and  stand  the  man  flush  on  the  xy  plane.  Provisions  are 
included  in  defining  the  model  which  will  allow  for  six  additional  foot 
slices  to  be  added.  Also,  the  program  prints  out  each  slice  description 
of  the  reconstructed  model  by  calling  subroutine  MOSAIC.  Fig.  12  illus- 
trates the  disc  structure  of  the  incapacitation  model  after  transforma- 
tion is  completed. 

B.  Foot  Slice  Addition 

1.  Description.  The  original  incapacitation  model  derived  in  VI-A. 
was  constructed  without  feet  due  to  the  fact  that  cross  sections  (108- 
113)  were  not  derived  from  cuts  taken  parallel  to  the  xy  plane.  However, 
a soldier's  mobility  is  of  vital  concern  to  infantry  vulnerability 
analyses,  thus  it  was  deemed  essential  to  consider  the  effect  of  wounds 
received  in  this  region  in  our  study. 

The  Foot  Slice  Addition  program  was  written  for  this  purpose.  It 
attaches  the  foot  slices  provided  by  Eycleshymer  and  Schoemker  onto  the 
Computer  Man  and  in  effect  stands  him  on  his  toes. 

The  program  is  set  up  such  that  it  could  be  easily  modified  to  add 
or  delete  tissue  codes  in  any  cross  section. 

2.  Main  Routine.  The  following  instructions  read  in  the  foot 
slices : 

DO  2000  SLICE  =1,6 

READ  (5,100)  C ARDNUM , ARG 1 , ARG 2 , ARG 3 , ARG4 , ARG 5 , ARG 6 

100  FORMAT  (13, IX, 614) 

READ  (5,101)  ARG7, ARG8, ARG9,  (ARRAY (N) ,N  = 1,23) 

101  FORMAT  (12, IX, 12, IX, 12, 2313) 
where: 

ARG1  = starting  position  of  submatrix  on  y axis 
ARG 2 = end  position  of  submatrix  on  y axis 
ARG3  = starting  position  of  submatrix  on  x axis 
ARG4  = end  position  of  submatrix  on  x axis 
ARG5  = number  of  columns  for  submatrix 
ARG6  = number  of  rows  for  submatrix 
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LAYOUT  OF  COMPUTER  MAN  (INCAPACITATION) 


SLICE  NO. 

ANATOMICAL  SECTION 

DISC  RECORD  NO. 

FEET 

1 

LEGS 

2,-6 

(34-391 

ARMS,  LEGS 

6,-7 

(40-59) 

ARMS,  TORSO 

>• 

i 

o 

(60-64) 

TORSO 

10,-11 

(65-82) 

HEAD 

11,-14 

(83-84) 

DUMMY  SLICES 

14 

83-84 


65-82 


n 


37-64 


34-36 


1 -33 


1 \ 

V 

\ “ 

■1 

MHO 

1 

\ 

IB 

HI 

B! 

5 

4 

A. 

i- 

Figuee  12.  a Representation  of  the  Disc  Structure 
of  the  Computer  Man 


45 


ARG7,ARG8,ARG9  pertain  to  each  individual  row  of  tissue  codes. 

ARG7  *y  coordinate  of  row 

ARG8  = starting  x coordinate  of  tissue  codes 

ARG9  ■ x coordinate  where  tissue  codes  end 

CARDNUM  a slice  number  1-113 

ARRAY (23)  = tissue  code  input  list 

W0RK1(55, 110)  = temporary  storage  of  slice  description 
MAN3(110,55,6)  = target  matrix 

The  tissue  codes  are  read  into  ARRAY (24)  rowwise  in  accordance 
with  format  101. 

The  following  steps  construct  and  position  the  submatrix. 

1.  The  entries  in  ARRAY  are  shifted  upwards  such  that  ARRAY (1) 
contains  the  first  valid  (non- zero)  entry, 

2.  The  tissue  codes  are  transferred  to  and  positioned  in 
W0RK1 (55, 110) . The  arguments  ARG7,  ARG8,  ARG9  define  the  location  and 
bounds  of  the  submatrix. 

3.  The  slice  description  is  reflected  about  the  midpoint  of  the 
x axis,  line  X=55,  to  generate  tissue  codes  pertaining  to  the  opposite 
foot. 

4.  The  submatrix  W0RK1  is  copied  onto  the  main  target  matrix. 

5.  The  steps  outlined  in  the  Model  Repositioning  Program 
(Section  VI-A)  are  duplicated. 

6.  The  foot  slices  are  loaded  onto  the  disc  version  of  the  re- 
constructed model. 

7.  Subroutine  MOSAIC  is  called  to  print  out  each  slice. 

8.  The  incapacitation  reconstruction  program  is  rerun  to  verify 
that  both  programs  interface  properly. 
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C.  Subroutine  MOSAIC  (KSI, I) 


1.  Discussion . The  function  of  subroutine  MOSAIC  is  to  print  out 
each  cross  section  of  the  incapacitation  model  in  its  mosaic  characteri- 
zation. A list  of  the  symbols  which  appear  in  the  MOSAIC  printout  fol- 
fowed  by  a list  of  tissue  codes  identified  by  each  symbol  is  included  in 
Appendix  A for  reference. 

2.  Definition  of  Variables  and  Matrices. 


KS I (110,55)  - this  array  contains  the  tissue  codes  that  make 

up  the  cell  description  of  the  cross  section  cur- 
rently processed. 

GRID (110, 55)  - this  is  the  output  array  for  the  incapacitation 
model . 


CODE (200)  - this  array  contains  the  list  of  tissue  codes 

defined  to  describe  the  Computer  Man.  The  codes 
range  in  value  (2-200) . 

SYMBOL (200)  - the  first  187  elements  contain  the  Holerith 

representation  of  the  characters  used  to  identify 
tissue  codes. 


0RD(112)  - this  array  is  filled  with  112  periods  which  serve 

as  the  upper  and  lower  borders  for  each  cross 
section. 


N 

I 


- the  number  of  valid  tissue  codes  defined  for 
incapacitation  (181). 

- the  cross-section  number  (1-84). 


3.  Procedure . The  subroutine  indexes  through  KSI (110,55)  checking 
for  a match  in  tissue  codes  between  each  element  in  KSI (110,55)  and  CODE 
(200) . Where  a match  is  encountered,  the  symbol  chosen  to  identify 
the  tissue  code  is  taken  from  SYMBOL(200)  and  place  in  GRID(110,55)  in 
the  position  that  corresponds  to  the  index  (I,J)  in  the  array  KSI (110,55). 
This  is  done  for  each  element  "in  KSI(110,55).  A blank  character  is  in- 
serted where  non-tissue  codes  are  encountered.  After  each  row  in  the 
output  matrix  GRID (110, 55)  has  been  filled,  the  entire  slice  is  printed 
out  under  A2  format.  Each  slice  description  is  positioned  along  an  xy 
axis  enclosed  in  a border  with  the  cross-section  number  printed  below 
the  x axis.  In  order  to  assist  in  marking  off  cell  distances  periods 
are  inserted  at  equal  intervals  along  both  axes  where  tissue  codes  do 
not  exist. 
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It  is  important  to  note,  as  was  the  case  with  lethality,  that  in 
printing  out  each  slice  row  indexing  must  be  conducted  in  reverse  order 
(i.e.,  ROW (55),  (54),  (53),... (1))  so  that  the  Computer  Man  can  be 
printed  out  in  its  correct  perspective  (i.e.,  facing  parallel  to  and  in 
the  direction  of  the  +y  axis) . 
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APPENDIX  A 

DESCRIPTION  OF  ANATOMICAL  TISSUES  WHICH  DEFINE  THE  COMPUTER  MAN 
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TISSUE 

ID 

CROSS 

ANATOMICM 

CODE 

SYMBOL 

SECTION 

STRUCTUM 

I 

0 

1-113 

RUBClITANEOi  S 

J 

— w — 

1-6 

4 

• 

1-12 

•SKIJLU 

7 

— R — 

i-i2 

SKULL 

6 

T 

1-12 

RRAlNrFxCrPr  MONTAL  L0»E>  . 

23 

T 

' 1-6 

«»«  A 1 N (fRON'TAi  L Ore  » 

7 

u 

7 * 1 6 

FACE  (SOFT  TISSUE) 

B 

1 

7-16 

FACE  (CANO  PBA'E) 

9 

0 

7-16 

FACE  (CUT  WOVE) 

10 

P — 

7-9 

E*E  (EXCEPT  EVEB6LL  AND  0PT<C  NERVr) 

2* 

A 

7-9 

FYEBALL  AND  OPTfC  NERVE 

11 

— s — 

7- 1 B 

muscle 

1.2 

D 

16-20 

NEBVr  C-5.6,7 

1 ^ 

F 

ll»jy  PWAWYNV 

1 * 

G 

17-19 

1 A*YNX 

179 

H 

17 

MYOifj  BONE 

15 

j 

13-20 

VERtfrRa  (SPfNAl.  ANn  TRANSVERSE  PROCESSES) 

16 

K 

13-75 

VE"RTfR«a  (SPINAL  AND  T RaN5VERS£  tlHotES^tS) 

17 

L 

12-21 

VERterRa  <aRO  AND  R»Dy) 

16 

Z 

12-21 

VERTfrRa  (aRC>-  and  BODY) 

173 

X 

12-21 

PONE  W!TM(N  1 cm  OF  SPINAL  COLUMN 

l 7 * 

c 

12-21— 

"R0\'E'WlTuf\  1 c^OT-'SP  I FT*  CcO'l  UMIJ 

i* 

V 

13-21 

spinal  c#rc 

20 

1-10 

VASCULAR 

20 

B 

1-8 

SUPERIOR  S AOG  7 T A 1 SInUS 

20 

3 

SUPR  CERFRRAL~S|Nur^ 

20 

B 

2-3 

middle  cfReoRal  sinus 

2.0 

2-srr 

MIDDLE  mcNINGEAL  SfNtJI 

?0 

9-11 

TRANSVERSE  •'ENINGEAL  sinus 

20 

6 

9-10 

SINUS  PETRCSLS  INFERIOR 

21 

N 

9-18 

VASCULAR 

21 

N 

9U7 

interior  caRCtid 

21 

N 

11-17 

ExteR'O*  CABCTlD 

21 

N 

16 

common  carotid 

22 

M 

6-18 

VASClIt  AR 

22 

M 

8-11 

SUPERFICIAL  TEMPORAL 

22 

M 

11.13-15 

OOC JP'TAi 

22 

M 

11.12 

ANGULAR 

22 

M 

12.13 

POST  AURIC 

22 

M 

13^17 

in't  Taciai 

22 

M 

14.17 

EXT  Mix  Tl  LARY 

22 

M 

1 4TT5T 

CTiJITPROrUNrAS 

22 

M 

16,17 

SURMENTAI 

2 2 

M 

18 

7Nt  jugiu  AR 

22 

■ji 

18 

comm  rtrui 

2 

16 

V .COMMON'!  CInS 

22 

1X91 

17 

POST.  FACIAL 

*5 

0 

11-18 

vtscular 

25 

0 

11-18 

INT  JUGIJI  AR 

23 

0 

Trru-rB — 

TXt  JUGULAR 

53 

1 

22.27 

VASCULAR 

51 


TISSUE 

ID 

CROSS 

ANATOMICAL 

CODE 

SYMBOL 

SECTION 

STRUCTURE 

25 

0 

12-18 

VERTEBRAL 

25 

0 ~~ 

17-1*4“ 

SURER  THYRQln" 

26 

2 

19-27 

muscle 

27 

3 

19-27 

PMmENIc  NE^VE 

28 

4 

21-23 

NE9VA 

2B 

4 

21-23 

MRACMJAL  PLEXUS 

23 

4 

21-23 

ULNAR 

28 

4 

21-23 

Racial 

23 

4 

21-23 

median 

“TT 

S 

2 1 - 3 1 

VEwHBRa  (TRANSVERSE  ANn  SPTNAL  PROCESS) 

30 

6 

2:  -3i 

VERICBRa  (TRANSVERSE  AND  SPINAL  PROCESS) 

31 

7 

22-31 

V E"*  T t-  BR  A (ARCm  AND  BODY) 

32 

8 

22-31 

VfcRTfpRA  (ARCH  ANn  BODY) 

17  r- 

9 

22*31 

HONE  WITHIN  1 CM  OE  S^INaL  COLUMN 

176 

Q 

22-31 

RONE  WITHIN  1 CM  OF  SPINaL  COLUMN 

3T~ 

W 

22-3.1 

SPINAL  CORD 

34 

E 

19-21 

THYRO i n 

35  ' 

ft 

20-24  ' 

TRACHEA 

36 

T 

20-28 

ES0PwAnuS 

3)  ' 

Y 

20-21 

CLAV.I  Cl.  E 

38 

U 

20-21 

CL  A V 1 Cl  E 

o V 

l 

Tff- 25"' 

b C 4 A 

40 

0 

20-25 

•SCAPULA 

41 

“ P 

21 

SHGUl  DER  JOINT. (HEAD  OE  HUMERUS  AND  aDJ  SCAPULA) 

42 

A 

21 

SHrjULOFR  JOligT  (HEAD  of  -HJMEruS  AVD  A0J  SCAoULA) 

777" 

S 

21  • 

ARTICULAR  S U R E a C £ Or  SHO  ILOER 

178 

D 

21 

articular  Surface  of  SHOuinER 

43 

F 

22-23 

HUCElTuS  ( PROX  S.HAET  ) 

44 

G 

52-23 

48 

H 

21-33 

R 1 H 

46 

J 

21-33 

R I ft 

4 7 

K 

21-28 

LUNG 

48- 

L 

27-51 

D I APWRAGM 

49 

Z 

25-27 

HEARI  ( EP  I CARD  I UM  AND  MYOCA.R0NM) 

50 

X 

25-27 

HE  A H 1 (CHAMBERS) 

51 

C 

19-21 

VASCULAR 

5l 

c 

i 9-21 

1 N'l  JUGULAR 

51 

c 

19-21 

HI  JUGULAR 

51 

c 

! Nr  TMYROID 

— *r~ 

c 

19-20 

VE«Tf8RAl.  ' 

52 

V 

19-27 

VASCULAR 

5 2 

V 

54-2  7 

HULMUNaR Y 

52 

V 

25-2  7 

CORONARY 

52 

V 

* 24-27 

AZYGOS 

52 

V 

2 4-27 

V£MA  CAVA 

V 

?1 -22 

5 UR  C L * V I A ,\J  " 

5? 

V 

1 9 - 2 .1 

COMMON  CAROTID 

59 

B 

23-27 

STERNUM 

54 

N 

2?-27 

vascular 

5* 

N 

??-73 

AX  I'LlaRY 

54 

N 

22-27 

TNI  mammary 

73 

M 

30 

ARCH0E0RMI 3 

52 


TISSUE 

CODE 


ID  CROSS  ANATOMICAL 
SYMBOL  SECTION  STRUCTURE 


95 

0 

23*27 

AORTA 

99 

“0  

f“T2 

TNNOHiVATI 

9* 

1 

29-32 

STOMiCW 

5 f ' 

2 — 

28- <2  I NT E S TINE 

58 

3 

28-34 

LIVE* 

5 V 

4 

“flfl'l'  9 L 4 5 07fl  — 

60 

3 

29-29 

spleen 

61 

”6  

29-3  2 

PANCREAS 

62 

7 

29-30 

A DREnalS 

63 

« 

29-33 

KIDNEY 

, 6« 

9 

31-40 

tlRF  T r R 

65 

~ Q 

32rI7- 

VE  HTrgRA  <SPjN*|_  ANO  TRANSVERSE 

PROCESS) 

65 

w 

32-37 

VFRTfbBa  (SPINAL  AND  TRANSVERSE 

PROCESS) 

6? 

E 

32137 

vE«tepra  (»sr,u  and  800y> 

63 

R 

32*37 

veRtfrRa  ( * R ju  a^O  rODY) 

75 

T 

32-35 

verterra  t u r tw i n i ch  or  spinal 

CHORD  > 

69 

r 

37*37 

■ v£  R t rpR  a i.  <*AN»L 

70 

u — 

2 8-35“" 

MllSci'.E 

71 

t 

28-35 

VASCULAR  (AORTA) 

7 i 

0 

28-35 

VASCULAR 

72 

0 

23-30 

HEPATIC 

72 

0 

29-3  2 

REmal 

72 

• 

31 

GASTRODUODENAL 

7 2 

• 

JoT37 

PORTAL 

72 

f 

31 

CYSTIC 

1 i 

i — 

31-73 

[EfT  colic 

72 

0 

31-32 

RIDHT  OASTRre 

72 

0 

'31 

MIDDLE  CCLlc 

72 

0 

31 

PYt.ORTC  col  rC 

72 

0 

32-35 

S R r R m a t r r 

72 

0 

33-35 

J E J E N A L 

7 2 

$ 

3 « -35“ 

R I GUT  CO)  I C 

72 

0 

34-35 

I NTEST IN4L 

7 2 

0 

35 

A ILFAO 

72 

0 

35 

1 LEO  COI.tC 

72  1 

0 

35 
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CROSS  SECTION 


HH-HHiHHUUCCCQ 
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80  ec  ec.  ec 
cc  a:  Of  or 
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c*  at  cc  ec  of  aC 
o * cccttfa: 
o««  eta  ec 
o a:  tc  oc  cc  oc 
o K t a o' 
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ci  a o 


CT  9 
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at  oc  ac  — 
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CROSS  SECTION 


116 


QQQQCCCC  CCCCCGCCQ 

OQCOGQQQCCCCCCCCCCCCQ222CCCCCCQQ 
CQQGG22222222H6B6GH22222222222CCGCQ 
QQQ22222QC2N22H6B6BH2222N222222222CQQ 
QQQ2222CCCCCGCCCCCGCC6GCCOKKKKKKK22222CCQ 
QQQ2H2QQZZZZ7ZZZZZZZCCCCUKKKKKXKKKKK2222CGQ 

• . oog2hkqqzzzxxzzzxzzzzzzzcgckkkkkkki<kkkkkhhcqq  , . . 

QQQ2HKKQQ Z Z X XXZZ ZZ X > X X X XZZCCCKXKKX KKKKKKKKFH2CQ 
QQ2HXKKOOZ  ZXXXZZZZX  X XX  X XXXZZCGKKK  KKKKKKKKKKH2QQ 
QQ22KKKKKQZZZXXZZZZZXXXXXXXXZVOGKKKKKKKKKKKKKH2CQ 
QQ2KKKKKKGZ  Z Z ZXXZZZZXXX  X XXX  XVCGCKKKKKKKKKKKKKK  22Q 
Q022KKKKKKQZZZZXXZZZZZXXXXXXXXXXZCKKKXKKKKKKKKKK220 
QCCOQg  922XKKKKKKKZZZZZZZZZZZXXXXXXXXXXZGKKKKKKKKKKXKKK22Q 

QRRRRRRQ  Q22KKKKKKKKQ  ZZZZZZZZZZZXXXXXXX  XX  ZGKKKKKKKKKKKKKKK2CQ  QOGOQQ 

ORRRRRRRRQ  QQ2KKKKKKKKKKGZZZ  ZZZZ 1 1 III ZZXX  XXZCGCCLLKKKKKKKKKKKH2Q  QRRRRRRQ 

QRRRRRRRRRFQ  Q2HQKXK KKKKKKKKZZZZZ ZZZ Z ZZ ZZXXXXZCQCLILLKKKKKKKKKKKF2Q  ORRRRRRRRQ 

. QRRRRRRRRRRRQ  Q2HKKKKKKKKKKJ(KKZZZZZZZZZZCZXXXXZH.LLLKKKJ<KKKKKK**KF2Q  QFRRRRRRRRRQ  . 

QRRRCRRRRRRRQ  Q2HKKKKXKKKKKKKKKZZZZZZZ  ZC  ZCXV  VVZLLlt-KKKKKKKKKKKKKKF20  QRRRRRRRRRRRQ 
QRRRCYRRRRRRRQ  Q2HKKKK-KKKKKKKKKXZZZ  Z Z Z ZZC  Z VV VVVZ  Z0KKKKKKKKKXKKRKXKF2Q  QRRRRRRRORRRQQ 
QRRRRRRRRRRRRQ  Q2HQKKKKKKKKKKXKKKKZZZZZZZZZ-VVVVtfZGGXKKKKKKKKKKKKKKKF2QQ  QRRRRRRRYDRRRRQ 

QRRRRRI  IIRRRRQ  Q2H2K*K)(KKKK*:K|(X1<KKK7ZZZZZ2ZZVVVCGCK1<KKKKKKKKK1(KK.KKK22QG  QRRRRRRRRRRRRRQ 

QRRRRR  IU  I1RRRQ  Q222KKKKKKKKKKKKKKKKKKC(.CCCCKKKKKKKKKXKKKKKKKKKKKKK«22ZQ  QRRRR  1 1 1RRRRRRQ 

QRRRR  1LU IRRRQ  Q222KKKKXKKXKKKKKKKKKKK1TTTTXXXXKKXXXKKKKXKKKXXXKXKK222Q  QRRR I IUIRRRRRRQ 

QRRRRR  1 IIRRRRQ  Q222KKXKKRRKKKXK1CKKKKFKTTTTTCRKXXKRKXKXKKKKKICKKKKXXKF22Q  QRRR  I IUUIRRRRRQ 

QRRRRRRR  I YRRQQ  QQZH2XKKKXKKKKKXKXKKKXRKKCTTCQKKXKRKXKKKK.XKKKKXKKKKXKF22Q  QRRRR  1 1 IRRRRRRQ 

QRRRRRRRRRRQ  Q22H2KKKKKKKKKKKKKKKKKKKKC111CKXKKKKKKKKKKKKKKKXKKKKKI-22Q  QQRR  Y 1RRRRRRR  RQ 

. QRRRRRRRRRQQ  Q 22HHKK K KK K KK* X X KKKK K K K X *011 1 CK KK KKKKK KKKKKK KKKKIO'KKCFZ 2Q  QRRRRRRRRRRRQ 

QRRRRRRRRRQ  Q222HKKXXKKKKXXXKXXKXKXKKQ111CKXKXKXKKXXXKXXXKKKKKKKQ2252Q  QORRRRRRRRRQ 

QRRRRRRRRQQ  02222XXXKXXKXt'XXXKKKXXXXKCCC?7CXKXRKXXK*XFKKXI(XKXKKX2222QQ  QRRRRRRRRRQ 

QRRRRRRRQQ  02222KKKXKKKKXXXXKXKKXKKKC7777TCXXXXKKKXXKI<RXKKXKKXK2222GQ  QQRRRRRRRRQ 

QRRRRRQQ  02222KXXKXKKXKKXXXKKXKXXX7777777XXXXXXXXXXXXKKKKKXKCt2222Q  QQRRRRRRRQ 

QQCQQ  02222HKKKXKKKKKXKKKKKSKKK7  77  7 777KKKJ<KKKKKI"(KKKKKKKKQF2222g  QQRRRRRQ 

Q2222HKKKXXKXXKKXXXXKKKXX77S9997XXXXXKKKKXXXKXXKKXQH22222Q  QQQQQ 

Q2222FtHKXKKXKXXXKXKKKKXXC7SSS999CXXXXXXKXKXKXXXKXXCH2222QQ 
Q22222ttXKXKKKXKXKKKKKKXKHCCCI>fcCGHXKXKKKXKKKKKKKXKK2)-2222QQ 
C022222HXKKXKXXKKKKKXXKXIjC9CWWC7HCI(XXXXXXI(KXKXXX22222222Q0 
. . QQ2222222KKXKKKKXKKXXKXHCC9CCC97CH0KKKKKKKXKKKKK22222222Q  . . 

022222222KXXXXICXXXKXXWICCT9S997GCHCXKXXXKXXXXXFF2C2222CQ 
QQ22222Q2HKKKKX«KKKKHH222227722222HQKKKKKKKKK»<FC0G2222GQ 
Q022222CHHH222222ttH2222222C222222222222CCCCt<toC22222?GQ 
QQQ 22222 2222222222222222 2252222 222222222222222222 2GCQ 
QQCCGQQ 222222 22 222222 222222222 22 22 222CCCCCCCCCCCCCG 
GQQCQQQQQCCQQCCCCCCCCCCCCCCCGCCCCQQ 


CROSS  SECTIOR  Si 


«X 


./sfyr'Tj  • "iT"' 


QQCCCCCCCCGQ 

OCOGQCCOaCCaGCCCCCCCCCCCOCQCCCCCCGQ 
CGCQQQ2222222222222CC2222222222CCGCCCQ 
QQQQ222222222222HH2EB6H22222222222222QCCQ 
C0C2222HCCCCCCCCQKHEEEEHH2N0CGC222222222CCQ 
. . . CCQ222HHOCCOZZVVZZ22ZZZCCCCKKK|(KKKKKK2H222CQa 

CQQ222HKQCGZZZZZZZZZZZZZZZZZCKKKKKKKKKKK2H222CQ 
CQ22Z?t<KKGZZZZ27ZZZXXXXXXZZZZCKKKKKKKKr'.KKh2222C0 
QQ2222KKKKQZZZ27ZZZZZXXXXXXZZVGCKKKKKKKKKKKK222CQ 
QQ222KKKKKCZZZZZZZZZZXXXXXXZZZZZZXXKKKKKKKKKK222CQ 
QQ22KXKKKKG2ZZXXXZZZZXXXXXXXXXXXZKKKKKKKKKKKKK2:2C 
0000  OQ22KKKKKKKQZZZZXXXZZZZXXXXXXXXXX2ZKKMO<KKKKKKKK22CQ 

QRRRRQQ  QQ22KKK KKKKO Z Z Z Z Z X X XZ Z 2 X X X X X X X XXXXZKKKKKKKKKKKKK22CQ  OQOO 

CRRRRRRRO  Q2HKKKKKKKK 3ZZ III ZXXXZ ZZX XX XXXXXXXZKKKKKKKKKKKKKK2FQ  QQRRRRQ 

CRRRRRRRQQ  02HKKKKKKKK0 ZZ Z Z ZZ X X X XZ Z ZX X X X X XX XX ZKKK KKKKKKKKKKK2FGQ  QRRRRRRRQ 

. QRRRRRRRRRQ  QHKK KKKK KKKK Z Z Z X X X XX X X X X ZX X X X X XX XXZKKKKKKKKKKKKKKKF 20  OORRRRRRRQ  . 

, QRRRRKRRRRRR  Q2HKKKKKKKKKKCZZZZXXXXXXXXZXXXXXXXZCKKKKKKKKKKKKKKKF2Q  QRRRRRRRRRQ 

QQFRRYSRRRRRO  Q2HKKKKKKKKKKK Z Z Z Z X X X X X X X X > X X X X XX XZKKKKK KKKKKKKKKKK2H20  RRRRRRRRRRRQ 
QRRCRRRRRRRRQ  Q2HX KKKKKKKKKKZ ZZ Z Z X X X X X X X X ZX X XXX ZG IK KKKKKKKKKKKKKK 2H2Q  GRRRRRRYRRFQ 

QRRRRR I IRRRRQ  02ZKKKKKKKKKKKKZZZZZXXXXXXXZZXZXZCKKKKKKKKKKKKKKKKKK22Q  QRRRRRRRR ORR 0 
ORRRRI I 1 IRRQO  QQ22KKKKKKKKKKKKKZZ2ZZXXXXXXXXZXZQKKKKKKKKKKKKKKKKKKK220  QRRRR I I RRRRRO 

QRRRR I UU IRRQO  Q222KKKKKKKKKKKKKKKZZQZZXXXXXXZZZKKKKKKKKKKKKKKKKKKKK2200  CQRR ( 1 1 IRRRRO 
ORRRRI I IRRQQQ  QQ2 ZK KK K K KK KKKKKKKK KCCQ V V Z X X XZ ZC KKKKK K KKKKKKKKKKKKKKKH22Q  QQRR IUU IRRRRQ 
QRRYR IRRROQ  Q222KKKKKKKKKKKKKKKKKKVCCCZZZCGKKKKKKKKKKKKKKKKKKKKKKH22Q  QOORRI I IRRRRO 
ORRRRRRRRQQ  0Q22HKKKKKKKKKKKKKKKKKKKCTTTTTCGKKKKKKKKKKKKKKKKKKKKKFH22Q  QORRR I RVRRQ 
. ORRRRRRROO  G2Q2HKKKKKKKKKKKKKKKKKKKKC117TCKKKKKKVVKKKKKKKKKKKKKK2H220  QORRRRRRRRO  • 
QRRRRR RRQU  Q2Q2HHKKKKKKKKKKKKKKKKKKK11111CKKKKKVVVVVVKKKKKKKKKKK2H22QQ  OORRRRRRRQ 
QRRRRRRRQ  Q2222HHKKKKKKKKKKKKKKKKKKK1111CCKKKKKKKKKKKKKKKKKKKKKK22222Q  OORRRRRRRQ 
OR RRRRRO  Q2222M2KKKKKKKKKKKKKKKKKKKC1177CKKKKKKKKKKKKKKKKKKKKKK22222Q  QRRRRRRRQ 
QRRRRQ  Q222222KKKKKKKKKKKKKKKKKKKCQ7777CKKKKKKKKKKKKKKKKKKKK2F2222Q  QRRRRRRQ 

QRCCQQ  Q222222KKKKKKKKKKKKKKKKKKKQ777777KKKKKKKKKKKKKKKKKKKKHF22220  ORRRRO 

CQQ  Q222222HKKKKKKKKKKKKKKKKKK7777777CKKKKKKKKKKKKKKKKKKFH222222Q  QQOQRQ 

Q222222HKKKKKKKKKKKKKKKKKC77S<;997CKKKKKKKKKKKKKKKKK2FH222222Q  QOO 

02 22 22 2HHKKKK KKKKKKKK KKKK779SSS99CKKKKKKKKKKKKKKKKK2F2 22 2222Q 
Q222222HH2KKKKKKKKKKKKKKKCH9CWR99CCKKKKKKKKKKKKKKKK  222  22  22  20Q 
. . Q2  2 J222222KKKKKKK  KKK  KKKKKCHCChRCCHCKKKKKKKKKKKKKKK2  22222  222QQ  . • 

002 222222 2 2KKKKKKKKKKKKKCHCCCCCCGCHCKKKKKKKKKKKKKFHC2222222QQ 
Q222222222HKKKKKKKKKKKCHHC77S9777CHHKKKKKKKKKKKFHG22222220Q 
QQ22222222HHHKKKKKKKQHHCCC2277222CGCHCKKKKKKKCFFH22222222CQ 
0Q2222222enH0CCCQQ222222222252222222222CCCCQWH02222Z2220Q 
QQ222222CCQ02222222222222225222222222222222CC2222222CCU 
QQCQGQCGG0QG2 22222222 2222 2C22 222 2222222222 2CCCGQCQCQ 
CCCOCQOUOCCCOaQCCCCCGCCCCCCCCOCCCCCOOCCCCCCCa 


CROSS  SECTION  S7 


♦X 


QCCCQQQCCCCC 

CC0QCQ22222222CCCCCCCCCCCCCCCCCCCCQ 

GCCG2222222222222222C222222222222CCCCCG 

QCQ22222HHHH22222CCHEC8CC222222222222CCCQ0 

• • • C0222222HKKKKKKKKCN0HePeCCN2222222222GCCCCO  • 
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ecoocecccccoccccceccccce 

QOCCOQQYYYYY2222222YYY02222CCOCCCOe 
CQCC022222YYYYYY YY22222 YYYYYY2222222222CCCCCC0C 
QQC0802222222Y YYYYYYYY Y22222YYYYYYYYYY222222222222CCCC90000Q 
CCC922222222222YYYYYY222222CCC222222222222CCCCC22222222CC2222222CQQ 
. *00000222222222 2CCCY22222CGCCCCCCCCCCCCCCCCCCCCCCCQCCCCC0C2 2022 2222222220  . 

0Q02222C2230CCCCCCQ22CC  GCQ0N1 1 1 1 1 1 1 1C CCC11CCCCCCCCCCCC2222 2 2C202 2222 22222200 
C02222222GC02222CCCCG2OCVVQOKKItK3CllCCCCCCllKKCCCCCCCCCCCCC222CQ222QQ22222222OQ 
CC22222222C000222CCCCGCVVVVVCKItM<l<CVCCCRHCCC3KKKH'CCCCCCNCCOCCeCQ2.222COOGG022200 
Ce222222e0222CC0CGGNNCVVVVGCM1<IOCKKKCVCCCFS*CCCKKKKKI  HU2GC«MiNNC0R*2222Q0FFFF02220 
022  22F02C  2222  2C33t.'f.KYMCCCU'jHIIKKKKKKKKCCTCPRI<tCI<KKK«KFKKK22CCCCNNkNCNN0CQ8GFFFFO222QQ 
00222FFF2Q  22222CGOr.,KCCOCCGOMHKKRKKttKRKKCI  7CRKCKFKKt<KKKKKKK220CCCCCCCYCQCOQGFFF  GO  22220 
00222CFFFF20CCC20^RCCCCGCC22KKkKKKKHKKKKCTTCCCFK(<KRKKKKKKKKK)l22CCCCCCQ2223QFFFF202222Q 
022220FFFf22222CCNQGCCCQC22KKKR.K  KKKKKKRKK  QT7CKKKI<KKKKKKKKKKKKFi22CCCG2222  20  CQQ02C  022220 
022  2iCFFFf222  222CGF':GCCQ22RKKKRKKKKKM'.  KKRGCCCKRKRJ<itKKKKKKRKKKhh2GCG222222222C02CG22220 
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032222U22222III  I 22222022FHKKKKKKKKKKKKKC7S?  WCKKK  KICK  KKKKKFKK222C22  220  1 1 1222202222223 
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CROSS  SECTION  )7 

AVERAGE  DOCTORS  EVALUATION  i HOUR  ASSESSMENT 
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CROSS  SECTION  3’ 

AVERAGE  DOCTORS  EVALUATION  l HQUR  ASSESSMENT 
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CROSS  SECTION  41 

average  doctors  evacuation  i hour  asscsshent 
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CROSS  SECTION  A3 

AVERAGE  DOCTORS  EVALUATION  I HOUR  ASSESSMENT 
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CROSS  SECTION  O 

AVERAGE  DOCTORS  EVACUATION  1 HOUR  ASSESSMENT 
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CROSS  SECTION  47 

AVERAGE  DOCTORS  EVALUATION  1 HOUR  ASSESSMENT 
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AVERAGE  DOCTORS  EVALUATION  1 HOUR  ASSESSMENT 
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AVERAGE  DOCTUR5  EVALUATION  1 HOUR  ASSESSMENT 
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AVERAGE  DOCTORS  EVALUATION  1 HOUR  ASSESSMENT 
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APPENDIX  D 

FLOW  CHARTS  AND  PROGRAM  LISTINGS  ASSOCIATED  WITH  THE 
COMPUTER  PROGRAMS  CONTAINED  IN  THIS  REPQRT 
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* LIST (START ) 

S COMM  HEEL  2 4 A 1 1 TO  UNIT  3 INPUT 

* CO*M  KEEL  28C14  TO  UNIT  4 OUTPUT 

* M AXO  ( 15000ILINES 

* M A X T ( 1 0 ) M ] N S 

DIMENSION  ROW(25),NEWR0W|8) 

INTEGER  K0*, TEMP, CARD, RES, TEMPA 
LOS  I CAL  CORRECTION, FLAG 
C 

C CORRECTION  - THERE  ARE  CORRECTIONS  TO  BE  MAUE 

C FLAP  - APPLY  CORRECTION  TO  THIS  LINE 

c MARK  flag  where  SLICE  IS  TO  8 E CORRECTED 

C 

CORRECTION*. TRUE. 

FLAP*. TRUE, 

I N UE  X 2*0 
K 0 UN  T ■ 0 
WRITE <6, 111) 

111  F ORM AT ( • ORQW  AND  COLUMN  COUNTS  ARE  A CHECK  ON  THE  PARAMETERS', 

A ' THAT  POSITION  THE  SUBMATRIX  WITHIN  THE  SLICE.', 

B /,'OTHIS  PROGRAM  EDITS  THE  FIRST  CARD  S PARAMETER.') 

10  MARKbROwI 1 )+l 
C 

C INDEX3  KEY 

C 8 CHANGE  CARD  ENTRY 

C 9 READ  IN  NEW  HEAD  CARD 

C 10  APPLY  NO  MORE  CORRECTIONS 

C 

IF  < I NUEX3.GT .fl.AND.MARK.EO. I NDEXl )G0  TO  35 
IF< ROW ( 1 ) .EQ. 1 13. AND.K0UNT.EJ.2)  GO  TO  30 
KEA[1<3, 108)  ( KO  w ( I ),!■!,  8) 

108  FORMAT ( 13, 12,41 4,4X,?]4) 

I F ( ROW ( 1 ) .GT.500  ) GO  TO  20 
K*ROW ( 1 ) 

IF(C0RRECTI0N)3OT0  50 

60  IF  I INDEXl.EO.ROWI 1 ) .AND.  JUMP.EU.l)  GOTO  70 

80  TEMP«R0W(8)-H0W(4)*R0W(3)-1 

w R I T E ( 6 , 1 03  ) K , TEMP 

103  FORMAT < ' USLICE ' ,2X, 15, 2X, ' ROW  COUNT  OFF  BY',2X,!5) 
K0W(4)«R0W14)+TEMP 
TEMPbROWI7)-ROW<6)*ROW(5)-1 

wR I TE ( 6, 1 04  >K, TEMP 

104  FORMAT!  ' OSl,  ICE  ' , 2X,  15, 2X,  'COLUMN  COUNT  OFF  BY',2X,I5) 

R 0 w ( 6 I “ROwI 6 ) 4 TEMP 

K A R U*  1 

WRITE( 4,  100)  (ROW(  I ),  1*1,8) 

100  FORMAT! 13, 12, 414, 4X, 214) 

X*FL0AT(R0w(7)  ) 7 23  . 

NUMCARI)S*IFIX(X) 

KES*M0D(R0w!7),23) 

TEmP«NUMC*RDS*23*RE3 
IF(RES.E«.0)GO  TO  95 
1F(ROW(2),NE.-1)GO  TO  40 
90  IF (TEMP.NE.R0WI7) ) GOT 0 40 

WRITE(8,105)NUM CAROS, RES 

105  FORMAT (' UNUMHER  OF  EVEN  CAROS  PER  COLUMN ' , 2X , I 5 , 2 X , ' 4 I T H • , 

1 2X, 15, 2X, 'LEFT  OVER') 
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TEMPbNUMCARDSM 
KawOW ( S > *TEMP 
UO  1000  CARDbJ,k 

READ!3,  101  HROW(  I),  |al,25) 

KARL)bKARU*1 

IF(KAKl)  ,EQ.  JUMP)  R04(lNOEX2)aITeN 

101  FORMAT ( 13# 12*23X31 
L-23 

IF(TEMP.EU.R0M(2> )LbRE9 
L«L*2 

UO  2000  N0Mb3,L 

1F!R0W(NUM).EQ.3H  B)R0W(NUH)b3H  -1 
OECOUE! 10, 107,ROW!NUH) I TEMP A 
107  FORMAT ( 13) 

ROMNUM)BTErtPAM 
2000  CONTINUE 

WRITE!  4*  106)  (ROR(I)  , Ib1,U 
106  FORMAT! 13, 12,2313) 

1000  CONTINUE 
GOTO  10 

20  ENO  FILE  4 

KOUNT«*KOUNTM 
GOTO  10 

30  REMIND  3 

REWIND  4 
STOP 

40  KBH0WI7) 

JaNOWI  1 ) 

MR  I TE<6,  1 02) TEMP, K,  J , NUMC A RDS , RES 

102  FORMAT ( ' 0 1 TEH  I ***ERROR***  CARO  CHECK ' * /, 

1 1 0 X , ' COMPUTED  NUMBER  OF  ENTR 1 ES • , 1 5, /, 

2 1 0 X , 1 INPUT  NUMBER  OF  ENTRIES' , 15, 2X, 

3 'ON  SLICE' » 15,/, 1UX, 

4 'COMPUTED  NUMBER  OF  CARDS' , IS, 2X, 

5 'WITH', 15, 2X, 'LEFTOVER*  I 
REWIND  3 

REWIND  4 
STOP 
C 

C LOOP  3000  INSERTS  A NEW  ROW 

C 

35  DO  3000  I ■ 1 , 8 

ROW  I I laNEWROWI  I ) 

3000  CONTINUE 

50  KE  * D ( 5 » 109)  INUEX1, INDEX2, ITEM, JUMP, INDEX3 

109  F0RMATI5I5) 

wR I TE ( 6 , 1 l 0 ) INDEX1, INDEX2, ITEM, JUMP 

110  FORMAT! 'OCORRECTION  ENTERED  FOR  SL I CE ' , I 5, 2X, 

1 'THE' , 15, 2X, ' TH  NUMBER  SUBSTITUTED  BY', 15, 

2 2X,'0N  THE', 15, IX, 'TH  CARD  OF  THE  SLICE') 
IF! INDEX3  ,LT.  9)  GOTO  25 

1FIINUEX3  ,0T.  10)  GOTO  45 
READ(b, 10  8) ( NEW ROW! I ) , I a 1 , 8 ) 

25  COKRECTlONa. FALSE, 

GOTO  60 

45  FLAGa. FALSE, 

GO  TO  25 

70  ROW! INDEX2)bJTEH 

1 F ! FL AG ) GO  TO  50 
GOTO  80 
9 5 RE  S»2 J 

NUmCARDSbNUMCARDSbI 
GO  TO  90 
END 
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OCT. 30, 76  BRLESC2  FORTRAN. 

•VL779A  STANLEY  X4723  32S  COMPUTER  MAN  DISC  LOAD 


6000 


1120 

2000 


3000 


7000 


8000 


9000 


L l 6 T ( ST  ART  I 

COMM  DISC  65023  TO  UNIT  3 

COMM  heel  2 AC  1 a to  8« I TCH  4 , INPUT 

MAX  T ( 35 ) M | NS 

MAX  0(20000)  LINES 

DIMENSION  NAMEI4) 

COHMON/M AN/MAN ( 50, 35, 28) 

COMMON/  PLANE1/PLANE1 (50,35) 
COMMON/PLANE2/PLANE2(50#35) 

INTEGER  PL*Nfc 1 i PLANE2 

DATA  IDD, IDF/10H65U2J  BOD Y , 1 OM I NF I N COMP / 
CALL  D1SCDL(3,NAME, IDO) 

CALL  0!SCDF( IDF, 49000, 400, I DUMMY, 0) 

CALL  clear 
DO  6000  K ■ 1 , 3 

CALL  DISCmT( IOF,K, 1,MAN) 

CONTINUE 

DO  1000  Ma i , 5 

CALL  DISCRLM  IDF, 3,1, MAN) 

DO  2000  Lai, 26 
K ■ 2 7 "L 
CALL  INPUT 

CALL  L0AD(PLANE1,K,M) 

FORMAT ( 1 IX, 15, 1UX, 15) 

CONTINUE 

CALL  DISC4T< IDF, 3,1, MAN) 

CALL  DISCRDt I0F,2,1,MAN) 

DO  3000  L«27 ,44 
Ka55*L 
CALL  INPUT 

CALL  L0AD(PLANE1,K,M) 

CONTINUE 

CALL  0 I 3 C T ( IDF, 2,1, MAN) 

CALL  UISCRD(10F,3,l,NAN) 

DO  7000  La50,52 
<a53-L 
CALL  INPUT 
CALL  REFLECT  1 
CALL  GRAFT (PL*N£2,K»M) 

CONTINUE 

CALL  D I SC  4 T ( I OF , 3, l, MAN) 

CALL  DISCRDt IDF, 2, l, MAN) 

DO  3000  L»53,75 
KaBl-L 
CALL  INPUT 
CALL  REFLECT  1 
CALL  GRAFT ( PLANE2, K,M) 

CONTINUE 

DO  9000  L«  7 6 , 8 5 

K>Bb«L 

CALL  INPUT 

CALL  NEFLECT2 

CALL  GRAFT(PL*NE2,K,M) 

CONTINUE 

CALL  D I SC 4 T ( I OF, 2,1, MAN) 

CALI  DISCRDt IDF, 1,1, MAN) 

DO  1010  L" A6, 1 13 
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K-l  14-«_ 

Call  input 

CALL  REELECT2 

CALL  GRAFT (PLANE2#K,M) 

1010  CONTINUE 

CALL  DISCrT(  I0F,1,1,HAN) 

1000  CONTINUE 

DO  4000  M«l,5 

DO  4000  L-1,3 

CALL  DISCRU( IDF,L, 1,MAN) 

DO  400U  Kal,28 

CALL  UNL0AD<PLANE1,4,M» 

CALL  outputiplaneu 
WRITE<6,1U01M,L,H 

100  FORMAT! 'OUOCTOR  I NT ERPRET A T I ON ' , I 9, 2X# 

1 'DISC  RECORD' , 15, 2K, 'SLICE' , 15, 2X) 

4000  CONTINUE 

REMIND  4 
8T0P 
END 


• L I 3T ( ST  ART  ) 

C 

C 

C 

SUBROUTINE  CLEAR 
DIMENSION  ZERO (10) 

COMMON/M A N/M AN ( 50, 35, 28  ) 

INTEGER  ZERO 
DATA  ZERO/ 10*0/ 

DO  1000  Jal,»5 
DO  1000  1*1,50 
00  1000  K«l,28 

CALL  PACK(MAN< I,J,K),ZERO#10) 
1000  CONTINUE 
RETURN 
END 
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L I ST (START ) 


C 

C 

C 

SUBROUTINE  REELECT  1 
COMMON /PL * NE2 /PLANE 2 ( SO ,39) 
COMMON/  PLANfcl/PLANEl (50,35) 
INTE8ER  PLANE!  ,PLANE2 
VO  1000  J*l,35 
DO  1000  1*1,90 
PLANE2 ( 1 , J ) *0 
1000  CONTINUE 

VO  2000  J*7 , 35 

DO  3000  1*8,29 
L- 1 -7 

PLANE2(L,J>*PLANE1I|, JJ 
3000  CONTINUE 

DO  4000  1*1,25 
L-51-1 

PLANE2IL, J)*PLAnE2<  1,J> 
4000  CONTINUE 

2000  CONTINUE 
RETURN 
ENV 


* L I 8T ( ST  ART  ) 

C 

C 

C 

SUBROUTINE  REFLECT2 
C0MM0N/PLANE2/PLANE2<  50,39) 
COMMON/  PLANfcl/PLANEl ISO, 39) 
INTEBER  PLANE1 ,PLANE2 
00  1000  J* 1 , 35 
DO  1000  1*1,50 
PLANE2I I , J)*0 
1000  CONTINUE 

00  2000  J* 1 , 34 
K ■ J ♦ 1 

DO  2000  1*1,22 
L*l*3 

PLANE2(L,K)*PLANE1 I I , J) 
2000  CONTINUE 

VO  3000  J* 1 , 35 

DO  3000  1*26,50 
K-51-I 

PLANE2I I , J)*PLANE2(K, J) 
3000  CONTINUE 
RETURN 
ENV 
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OO  O -*  % oo  o 


LISTISTART) 


* 


SUBROUTINE  GRAFT!PLAnE,K, POSITION) 
INTEGER  PLANE, POSITION, VECTOR 
DIMENSION  PLANE(50,3b) 

DIMENSION  VECTOR! i 0 ) 
COMMON/MAN/MAN!50*35,28) 

00  1000  Ja  1 , 35 
DO  1000  1*1,50 

LAMDA»MfcN<  I , J, K f 

CALL  UNPACK! LAMUA» VECTOR ( 1 ), 10 ) 
IF (VECTOR! POSIT  ION ) .LT  * PLANE!  I mM  ) 
VECTOR! P0SITI0N)*PLANE( I, J) 
CALL  PACK  < VECTOR!  1 ) *LAMtlA,  10) 

HAN!  I , J ,K)»LAHl)A 
CONTINUE 
RETURN 
END 


LISTiSTART) 


SUBROUTINE  LOAD! PL *N£,K, POSITION) 
DIMENSION  PLANE (50,35) 

INTEGER  PLANE, POSITION, VECTOR 
DIMENSION  VECTOR ( 1 0 ) 

COMMON/MAN/MAN ( 50, 35, 28  > 

DO  1000  J* 1 , 35 

DO  1000  1*1,50 

LAMDA*HAN( I , J , K > 

CALL  UNPACK < LAMDA, VECTOR  I l ), 10  ) 
VECTOR! POSITION)* PLANE!  I , J) 

CALL  PACK! VECTOR! 1 ) ,LAMOA, 10  ) 
MAN!  I,Jf,K)*LAMpA 
1000  CONTINUE 
RETURN 
END 
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LIST(STAflT) 


e 

c 

e 

SUBROUTINE  OUTPUTIPLANII 
DIMENSION  PLANE l 90, 39  > 

DIMENSION  PLANE2I9U,39> 

DIMENSION  NUM(IO) 

DIMENSION  HO«nER(lOO) 

INTEGER  BORDER 
INTEGER  PLANE 
INTEGER  PLANE2 
INTEGER  CHAR 
INTEGER  BLANK 
DATA  BOHDER/iOO*lH,/ 

DATA  CHAR/*  ,'/ 

DATA  NUM/»  l»,'  2'»'  3',’  4','  5*,'  9'* 

I * / ' , ' 8» , * 9» , » O'/ 

U A T A BLANK/'  » 

RRl TE<6, 101 1 

1 0 1 E0HMKT(*1NCW  planc'»/»'  ♦'#/,' 

DO  2000  I ■ l , 50 
DO  2000  J-1,3S 
K-PLANEI  I, J)-l 

lElK.GE.t.ANU.K.LE.lO)  00  TO  109 
PLANE2I I, JI-BLANK 
GO  TO  2000 

|09  PLANE2I! ,J>»NUM|K» 

2000  CONTINUE 

DO  1000  K ■ 1 , 35 
J-36-K 

MR  I TE ( 6, 100 1 CHAR,  IPLANE2U»JI*I»1»90I 
100  FORHAT I 2X, 1 A 2 , 90 A2 ) 

1000  continue 

*R1TE<6,103) ( BORDER ( I ),!■!, 80) 

103  F0RMAT(4X,50A2) 

nRITE(6,102) 

102  format ( • !o,o)',95X,'  »x 
return 

ENO 


c 

SUBROUTINE  INPUT 

c this  SUBROUTINE  reads  THE  CARD  DESCRIPTION  of  THE  ARRAY  HAN  AND  PLACES 

c INTO  ACTIVE  MEMORY  in  plane  for  MANIPULATION  and  ASSIGNMENT  INTO  HAN 

common/  PLANE1/PLANE1 (50,35) 

INTEGER  PLANE1 
DO  looo  J • 1 ,35 
DO  1000  1-1,50 
PLANElU,J)-0 
fOOO  CONTINUE 

READ! 4, 10U ) NUM,MNK,MXK, HNC, MXC 

100  FORMAT! 13, 2X, 4J4) 

DO  2000  J-MNR , MXR 

REAO(4,101I(PLANE1( I , J ) , I -HNC , HXC  ) 

1 0 1 E0RMAT(5X,23I3) 

2000  CONTINUE 

NRI TE < 6, l 03 ) NUM 

103  FORMAT! 'UPLANE' , 13, 2X, ' READ  IN') 

RETURN 
END 
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• L|ST(3TART> 

c 

c 

c 

SUBROUTINE  UNLOAD(PLANE,K,NOEI 
INTEGER  PLANE, POSI T|ON, VECTOR 
INTEGER  delta 
U I MEN5 I ON  PLANE(50,3B) 

DIMENSION  VECTOR ( 10) 

COMMON /MAN/MAN ( 80,35,28) 

COMMON  KCHECK 
DO  1000  J ■ 1 , 39 
DO  1000  1-1,50 

LAMDAaMANt I, J,K) 

C IS  THIS  CELL  AIR  SPACE 

C OR  IS  IT  PART  OF  THE  HAH 

IF(LAHDA.EO.O)  00  TO  1060 

CALL  UNPACK ( LAMDA, VECTOR! 1) , 10) 

KNOEaNDE 

IF(KCHECK.E0,1 ) KNOE-NOE-l 
C AVERASE  CELL  VALUES 

C HOUND  CELL  VALUES  TO  NEAREST  INTEOER 

ITUTAL-0 

DO  1010  L-1,KNUE 
1 TOTAL- I TOTAL*  VECTOR  (U 
|010  CONTINUE 

ATOTAL-FLOATI ITOTAL) 

SNDE-FLOAT(KNDE) 

AVOl-ATOTAL/SNOE 

LAMI)A-IFIX(AVQl) 

SETA-FLOATILAHUA) 

hes-avgi-bfta 

IF  I RES, OT, 0.49)  LAMDA-LAMDAM 

C PROGRAM  AVERAGES  SCORES  AND  PACKS  AN  AVERASE  SCORE  INTO 

C EACH  WORD  IN  10TH  POSITION 

VECTOR ( l 0 ) -LAMDA 
IF  IK. 15) 1020, 1030,1020 
1030  IFI J-15) 1020, 1040, 1020 

1040  MR]TEI6,10bO)|VECTOR(N),N-l,10),ITOTAL,ATOTAL,SN0E#AVai,LAMDA, 

1BETA,KES 

1050  FORMAT (5X, 1013, 3X, I4,3X,3F5,2,3X, I3,3X,F$,2,3X,F5,2) 
c PACK  ALL  SCORES  BACK  INTU  ONE  WORD 

1020  CALL  PACKIVECTORIl), DELTA, 10) 

MANI I , J,K ) -DELTA 
1060  PL *NE I I , J ) -LAMDA 
1000  CONTINUE 
RETURN 
END 

• LIST 

• DATA 
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MAN  CHANGE 
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non 


L I ST ( ST  AR  T ) 

$ COMM  CISC  5CC21  TO  UNIT  3 

$ MAXT!  25)MINS 

* M AXO  ( 15000  JLINES 

C IMENSION  VECTOR!  10  ) 

DIMENSION  NAME! 4)  , I SLICE!  10),  IX!  10)  ,IY<10)  .NEWVALIIO)  .IRECIIO), 
1COC INT! 10  ) 

COMMON/MAN/MAN! 50, 35,28) 

COMMON/  PLANE1/PLANE1! 50, 35) 

COMMON/PLANE2/PLANE2! 50, 35) 

C I MENS  ION  PLANE! 50, 35  ) 

INTEGER  PLANE, COCINT 
INTEGER  PL ANE 1 , PL ANE2 
INTEGER  VECTOR 
DATA  MAXPTS/3/ 

CATA  COC  INT/3, 2, 2,7*0/ 

CATA  IREC/3, 3, 3, 7*0/ 

CATA  ISL ICE/2, 1,1. 7*0/ 

CATA  NEWVAL/9, 1, 1,7*0/ 

CATA  IX/27, 13,40, 7*0/ 

CATA  IY/17, 15,15,7*0/ 

CATA  ICC,  IDF/10H5CD21  BOOY.IOHBGDY  / 

NUMBER  OF  POINTS  TO  BE  CHANGED 
INPUT  X , Y , Z COORDINATES  .SLICE*, NEW  VALUE 
DOCTOR  INTERPRETATION  NUMBER 
CALL  CISCCL!3,NAME, IOQ) 

CO  100  N=1,MAXPTS 
C UTILIZING  DATA  INPUT  READ  IN  CORRECT  DISC  RECORD 

CALL  CISCRC  l ICF, IRECIN)  , l.MAN) 

C STORE  SLICE  NUMBER  X , Y ,CCORD INATES 

I 1=  I X ! N ) 

I J= I Y ( N ) 

K=  l S L ICE  < N ) 

L = COC  INTIN) 

C RETRIEVE  CORRECT  ENTRY  FROM  MAN(I,J,K) 

CO  1000  J=l, 35 
CO  1000  1=1,50 
L AMD A = MAN I I, J,K) 

IF(LAMDA.EQ.C)  GO  TO  1020 
CALL  UNPACK (LAMDA, VECTOR! 1) ,10) 

PLANE!  I,J)  = VECTOR!L) 

GO  TO  10CC 

1020  PLANE! I, J )=LAMCA 
1000  CONTINUE 
C PRINT  OUT  OLD  ARRAY 

CALL  OUTPUTIPLANE ) 

C PRINT  OUT  NEW  ARRAY  WITH  CORRECTIONS 

PLANE!  II,  IJ)=NEWVALIN)  + 1 
CALL  OUTPUTIPLANE) 

C INCREMENT  VALUE,  STORE  ON  DISC 

NEWVAL!N)=NEWVAL(N)*1 
C PACK  NEW  VALUE  INTO  MANII,J,K) 

L AMC  A = M AN ! II,  I J,K  ) 

CALL  UNPACK ( LAM  DA, VECTOR l 1 ) , 1C ) 

VECTORIL  )=NEWVAL1N) 

CALL  PACMVECTORl  1),  LAMDA,  10) 

MAN!  1 1 , I J , K ) =L  AMO A 

CALL  DJSCWTl IDF, IRECIN), 1, MAN) 

100  CONTINUE 
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computer  man  delineation  program 


PEriRE:  INPUT  ARRAYS 
WORK  ARRAYS 
PILE  ICR  BODY  PARTS 


(CPER  TIC  disc'sN 

CALL  DISCDL  J 


|^RE 


READ:  INPUT  PARAMETERS 

NUM,I3ECT,ISL 


6 


(do  m|i,num) — ^ 5?) 


READ  : BOX  VERTICES 

I1,I2,JI,J2,K1,K2 


ZERO  WORK  ARRAYS 
KNUM(U),NSLICE(l4) 
KMRK3L)  >KMR2(  S4) 


/CALCUL 
V cal: 


■CULATE  SLICE  ELEMENTS 
CALL  CALSCE 


5 


^ PRINT:  KT’."'  lL;  ,I-l,lL 

MSLICE(ll>),  1-1,11* 
KMR1' 8k),  1-1,94 
KMR2'8k), 1-1,34 


(do  record  - i,isectV-{1o^ 


(call  liscs'J';}} 


c 


READ  IN  CURRENT  DISC  RECORD 
CALL  DISCRD 


"5" 


D 
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COMMON /MAN /MAN!  11C,  55,6)  .KSLICE  114 ) , KNUM 1 14 ) ,KMR  l ( 84  ) ,KMR2  ( 84  >,  11* 
lI2,Jl,J2,KlfK2,ISCCT,ISL,KSECT,KCOUNTfKSKCTtKT,KK!KtI(»»AK1KH 
C OF MCN/MAN1/M AN 1( 110,55,6) 

CCMMCN/MAN2/MAN2I  1 1C,  5 5, 6) 

CCMMGN/WCRK  3/WCRK3(llC,55) 

COMMCN/NAME2/NAME2I4) 

COMMON/NAME3/NAME 2 I 4 ) 

INTEGER  C ISC2.F ILE2.WORK3 
INTEGER  CISC3»FILE3 
INTEGER  RECORD 
INTEGER  SLICE 
CATA  CISC2/1CH55022  C MAN / 

CATA  CISC2/1CH55D24  KMAN/ 

CATA  EILE2/1CH I . J C A P BODY/ 

CATA  FILE?/  1 CH8 COY  PARTS/ 

CALL  CISCCLI 3,NAME2,OISC2) 

CALL  CISr.CL(2,NAMEJ,OI$C3> 

C CEFINE  FILE  FOR  NEW  OISC  PACK 

CALL  CISCCFIF ILE 3,36300, 1 26 8 , IOLMMY , 0 ) 

NUM  IS  TEE  NLMBER  OF  SEPERATE  INTERIOR  BOXES  REQUIRED  TO  SEPERATE 
A CESIGNATEC  SECTION  FROM  THE  REMAINDER  OF  THE  COMPUTER  MAN 
REACI 5,12C)NUM,  I SEC  T , I SL 
120  FORMAT (313) 

CALL  CISCSUI2) 

* C0=1 

CC  rC  M=  1 ,NLM 

REACf5,lCC)  11,  I2.J1, J2,Kl,K2 
100  FORM  AT ( 6 I 3 ) 

CO  21  i»;,isect 

KNUR  I I )«0 
NSL  ICEI  I )»0 

21  CONTI, N0C 

CC  22  1=1,84 
KMR  II  I )*U 
KMR2I  I ) = C 

22  CCNTINUF 
CALL  C4LSCE 
WR1TEI6,  110) 

110  FORMAT!  1CX, • KNLM • , 1CX , ‘NSl ICE • ) 

CC  7 1=1,14 

WR  IT E ( 6 , IC2 ) ( KNLM ( I ),NSL1CE<I) ) 

7 CONTINUE 

102  FORMAT!  1CX,  14,  1CX, 14) 

WRITE(6»iC3) 

103  FORMAT! 10X, • KMR 1‘  ,10X,*KMR2,J 
CO  8 1=1, E4 

I i=es-i 

WRITE(6,104)  (KMRKim,  (KMR2(im 

8 CONTINLF 

104  FORMAT!  1GX,  14,  1CX,  14  ) 

CO  1C  R ECCRO  = 1 , 1 SEC  T 
IF(KNUMIRECCRD)  .EQ.C)  GO  TO  1C 
CALL  C I SCSU ( 3 > 

CALL  CISCRCIEILE2, RECORD, 1, MAN) 

C ZERO  ARRAY  M AN  1 

CO  11  1=1,110 
CO  n J=l,55 
CO  11  K = 1 , 6 
MAMI  I,  J,K  ) = C 
11  CONTINUE 

IN*R  ECORC 
KMIN  = KNUM(  IN) 

KMAX=KNUM(IN  ) ♦ t NSL  ICE  t IN)-1) 

CO  2 K=KM IN ,KMAX 
CO  2 1=1.  ,12 
CO  2 J=J1,J2 
MANll  I,J,K)=MAN(I  ,J,K) 

2 CONTINUE 
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r>  r>  o **  n n n 


CALL  CISC  SU 12) 

ACC  THE  FCLLCHING  INSTRUCTIONS  WHEN  MORE  THAN  1 INTERIOR  BOXIS 
REQUIRED  TO  SECTION  OFF  THE  OESIRED  PORTION  OF  BOCY 
CTEFRW  I SE  OMIT 

CALL  CISCRC(F ILE3, RECORD, 1.MAN2) 

CO  2 C 1 = 1,  UC 
CO  2 C J* 1 , 5 5 
CO  20  K * i , 6 

IFIMANK  1,J,K).EQ.C)  HAN  1(1  ,J,K) «MAN2 ( I , J ,K) 

20  CONTINUE 

CALL  CISCWTIFILE3, RECORD, l.HANil 
CONTINUE 
50  CONTINUE 


PRINT  OUT  COMPUTER  HAN  IN  HCSAIC  REPRESENTATION 
CO  SO  RECCRC=1, ISECT 
CALL  CISCR0(FILE3,RECCR0,M,HAN2) 

CC  1 € K*  1,6 

CO  16  J»l,55 
CO  16  1=1, 11C 
ViORK3(I,Jl  = HAN2(I,J,K) 

16  CONTINUE 

C CALCULATE  CRCSS  SECTION  NUMBER  (1-84) 

SL  ICE  = (RECCRC-1)*6*K 
CALL  MOSS IC(*CRK3, SLICE) 

18  CONTINUE 

60  CONTINUE 
ENC 
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SUBROUTINE  CALSCE 

COKMON/M AN /MAN( 110,55,6) »N SLICE (14) ,KNUN(16I ,KMR1 ( 04 » ,KMR2<04 » « II, 
112,J1,J2,K1,K2,  ISECT,ISL,NSECT,KCOLNT,KSECT,KT,KHN,KI»AX,KN. 
LOGICAL  JLMP 

JUMP  * TRIE  (NCICATES  THAT  THE  1ST  DELINEATEC  SLICE  IN  A SECTION 

HAS  BEEN  ENCOUNTERED 
SET  SECTION  MARKERS 
SET  SLICE  MARKERS 
JUMP*. FALSE. 

KSECT*0 
CO  2 I -K  1 , K 2 
KMR  1 ( I ) * I 

2 CONTINUE 
CO  1 1*ISL,B4,ISL 
K M R 2 ( l »»  1 

1 CONTINUE 
CO  3 1=1, F4 
I F ( JUMP  > C-0  TO  5 
K T = M 0 C ( I,  ISL  ) 

C WHERE  KT  VARIES  FROM  1-ISl 
IF(KT.FG.C)  GO  TO  6 
0 If (KMR1I  I I.EQ.C)  GO  TC  3 
KN  = K T 

JUMP=.TRUE. 

5 IFIKMRiC  I J.EC.l)  KCCUNT-KCCUNT*! 

I F l KMR  2 1 D.EQ.l)  GC  TO  A 

GO  TC  3 

A KSECT=KSECTM 
CALL  SORT 
JUKP  = . FALSE. 

3 CONTINUE 
GO  TC  7 

6 KT=  ISL 

IFIKMRi.1  I I.EG.OI  KSECT-KSECT*! 

GC  TC  8 

7 RETURN 
ENC 


SUBROUTINE  SORT 

C KSECT  REPRESENTS  THE  NUMBER  OF  SECTIONS 
C THAT  CONTAIN  DELINEATED  SLICES  . 

COMMCN/MAN/MANI 110,55, 61, NSLICE (16 ) • KNUK (14 > , KMR 1 ( 86 ) , KNR2 ( 8 4 ) , I l, 
112, Ji,J2,Kl,K2,ISECT, ISL, NSECT,KCOLNT, KSECT, KT  *KM IN»KMAX, KN 
C SAVE  ACCKESS  WHERE  THE  1ST  1 APPEARS  RELATIVE  TO  THE 

C ' BEGINNING  CF  EACH  SECTION 
NSL  ICEIKSECT  )*KCCLNT 
KNUR (KSECT  )=KN 
KCCIJNT  = 0 
KN  = C 
RETURN 
ENC 
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LI  ST (ST AUTJ  ' 

MAXO(  5G0.i  )L  IHES 
MAXT ( 18 ) M INS 
COMM  DISC  5304  TO  UNIT  2 
COMM  DISC  55D22  TC  UNIT  3 

MAIN  ROUTINE 

THIS  PROGRAM  IS  DESIGNED  TO  TRANSFORM  THE  POSITION  OF  THE 
COMPUTER  MAN  TO  MATCH  THAT  OF  THE  LETHALITY  DESCRIPTION 
ALSO  THE  RECORD  LENGTH  IS  INCREASED  FROM  1-6  SLICES  PER  RECORD 
GUR  NEW  COMPUTER  MAN  IS  STORED  cN  DISC  PACK  55D22 

OATA  OISC/10H53D4  C MAN/ 

OATA  DISC2/1CH55D22  CMAN/ 

OATA  FILE/1 JH8CDY  / 

DATA  FILE2/1CHINCAP  BODY/ 

DATA  READER/5/, WRITER/6/ 

COMMON  /MAN/MAN( 55, 110,6) 

COMMON/M AN  I /M AN 1 ( 55,110) 

COMMON/M AN2/MAN2 ( 110,55,6) 

COMMON  /WCRKl/WORKK  55,110) 

COMMON  /WCRK2/W0RK2<  55,110) 

COMMCN/W .RK3/WGRK3( 110,55) 

COMMON  /NAME1/NAME114) 

COMMON  /NAMC2/NAME2I A) 

DIMENSION  IFIL( 131), LOU  131) , ITK ( 131 ) ,LTR (131 ) ,MAXNR(131), 
AIHRU( 131 ) , IHTU( 131 ) , ICI ( 131) 

INTEGER  WCRK1,WCRK2, RECORD 
INTEGER  F ILE , F ILE2 
INTEGER  WCRK3 
INTEGER  SLICE 

INTEGER  READER, WRITER, DISC, 0ISC2 

CM  INCAPACT  AT  ION  MODEL  IS  DIVIDED  INTO  14  RECORDS 
SIX  SLICES  PER  RECORD 

THE  RECORD  LENGTH  FOR  FILE  2 IS  36303  WORDS 

OPEN  THE  DISC  TG  BOTH  FILES  5304  ,55022 
THE  RECORD  LENGTH  OF  F ILE  1 IS  6050  WORDS 
CALCULATE  CORRECT  RELATIVE  RECORD  NUMBER  FOR  NEW  FILE 
FILE  1 1-6  7-12  13-18  79-84 

— — — — *******  % • • • • 

FILE  2123  14 

CALL  DISCGL(2,NAM51,DISC) 

CALL  DISCDU  3 ,NAM E 2, D I SC2  ) 

CALL  DISCDF(FILc2, 3630  3, 1288, IDUMMY » 0) 

IFIL(l)=Q.O 

CALL  DISCFI l IFIL,LOR*I TR, LTR, MAXMR, IHRU, IHTU t ICI  1 
DO  328  1=1,131 

!F( I F IL ( I ) . Nc . 0 ) WRITE (6,110)  ( IF  I L ( I ) ,LOR ( I ) , I TR ( I ) , LTRC 1 1 , 

AMAXNR(l),  IHRU  ( I ) , IHTU(  I ) , ICI(D) 

328  CONTINUE 

110  FORMAT! AIG,2X,7( I 4 , 2X ) ) 

DO  11  RECORD= 1 f 76 
INVREC=»(  (RECJRD-l)/6)  + i 
INVREC=15-INVREC 
C LOAD  HIGHEST  RECORD  FIRST 
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call  oisr.sum 

CALL  DISCRDIFILE, RECORD, l,MANl) 

C K IS  EQUAL  TO  SLICE  NUMBER  WITHIN  RECORD 

C INVCRT  COMPUTER  MAN 

DO  20  J=  L » 55 
00  20  1=1,110 
JY*56-J 

W0RK1IJY, I )=MAN1( J,I  ) 

20  CONTINUE 

C 1ST  ROTATE  CM  130  DEGREES  CLOCKWISE  ABOUT  X-AXIS 

C 2ND  ROTATE  CM  1M0  DEGREES  COUNTERCLOCKWISE  ABOUT  Z AXIS 

C ROTATE  COMPUTER  MAN  90DEGREES  COUNTERCLOCKWISE  ABOUT  Z-AXIS 

C REVERSE  THE  ROW  ORDER 

C REVERSE  THE  COLUMN  ORDER 

C REVERSE  THE  RECORD  ORDER 

C LOAD  BACK  INTO  MAN 

KK=MOD(RECCRD,fc) 

IF(KK.EQ.C)  KK=6 

C REVERSE  SLICE  ORDER  BEFORE  LOADING  INTO  NEW  RECORD 

KM=7-KK 

C PERFORM  A LIMIT  CHECK  ON  KM 

1FIKM.GE.1.AND.KM.LE.6)  GO  TO  71 
WR  ITEI6, 108)  KM 
1 ' 8 FORMAT ( 1 ,X, I A ) 

GO  TO  11 
71  CONTINUE 

DO  30  J = l»  55 
DO  30  1=1,110 
IX=111-I 

WORK  2 I J , I ) =W  RKH  J,  IX) 

MAN! J,I,KM)=W0RK2I J,I ) 

30  CONTINUE 

C TRANSFER  TO  NEW  DISC  FILE 

CALL  DISCSUI3) 

C DEFINE  DISC  FILES  FOR  NEW  DISC  PACK 

C FILE 2 IS  NEW  DISC  LABEL 

C CALL  DISCDFI I F IL , LOR , NT , I AV,K ) 

C NT  IS  NUMBER  OF  TRACKS  NEEDED  36300/398 

C LOR  IS  LENGTH  CF  DISC  RECORD 

C IAV  IS  ADUMMMY  VARIABLE 

C K OFF  HIES  SOME  ACTION  TO  BE  TAKEN  ON  IFILE  K = 0 CLEARS  FILE 

C IF  RECvRO  FILE  FILE2  IS  FILLED  WRITE  RECORD  ONTO  DISC 

C 
C 

C WRITE  ON  UNWRITTEN  RECORD  1 AND  RECORD  2 SLICES  5,6 

IF! INVREC.EQ.2. AND.KK.GE.A)  GO  TO  50 
GO  TO  12 

50  DO  80  K=  1, 2 

DO  80  J = 1 , 55 
DO  80  1=1,110 
MAN ( J , I , K ) =0 
8C  CONTINUE 

DO  3 K=1 , 6 

DO  3 J=1 , 55 

DO  3 1=1,110 

MAN2I  I,J,K)=MAN< J, 1,K) 

3 CONTINUE 

CALL  0ISCWT(FILE2,INVREC,1,MAN2I 
GO  TO  70 
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12  CONTINUE 

IF(KK.EQ.6)GQ  TO  101 
11  CONTINUE 

•101  CONTINUE 
C 
C 

C INTERCHANGE  X-Y  COORDINATES 

C ROTATE  COMPUTER  MAN  90DEGREES  ABOUT  Z AXIS 

00  2 K=  l * 6 
DO  2 J=  L , 55 
DO  2 1*1,110 
MAN2 ( I,J,K)=MAN(J»I»K) 

2 CONTINUE 

CALL  DISCWT(FILE2,INVREC,1,MAN2) 

GO  TO  11 
C 
C 

C PRINT  OUT  COMPUTER  MAN  IN  MOSAIC  FORM  FROM  NEW  FILE 
10  CONTINUE 

CALL  DISCSUm 

00  15  RECORD*!, 14 

CALL  0ISCRD(FILE2, RECORD, l, MAN2) 

C K IS  EQUAL  Ti  SLICE  NUMBER  WITHIN  EACH  RECORD 
DO  18  K= 1 , 6 
DO  16  J*I,55 
DO  16  1=1,11* 

W0RK31 I , J I=MAN2( I , J,K> 

16  CONTINUE 

C CALCULATE  CR SS-SECTI  ON  NUMBER  CI-8A) 
SLICE=((R6C0R0-1)*6H-K 
CALL  M0SUC(W0RK3, SLICE) 

18  CONTINUE 

15  CONTINUE 

END 
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LIST(START) 

$ MAXT  ( 5 ) M INS 

% MAX.M2.V0'.  JUNES 

$ COMM  DISC  55022  TO  UNIT  3 

INTEGER  CARDNUM, ARGI.ARG2, ARG3, ARG4, ARG5, ARG6, ARRAY, W0RK1 .PLANE 

INTEGER  ARG7, ARGB.ARG9 

INTEGER  ViOTH  j HGHT 

INTCGER  FILE2.DISC2 

INTEGER  RECORD 

INTFG6R  SLICE 

INTEGER  WCRK3 

DIMENSION  ARRAY (55) , PL ANE ( 5U, 20 > ,W0RK1 (55, 110) 
COMMON/WORK3/WCRK3( 110,55) 

COMMON/M AN3/MAN 3 ( 110,55.6) 

COMMON/M  AN/M  AN  (55,  HO) 

COMMON/M AN  1/M AN 1( 55, 110,6) 

COMMCN/MAN2/MAN2( 55,110,6) 

COMMON/NAME  2 /NAME  2 (A) 

DATA  IZSRC/O/ 

DATA  D I SC2/1 0H55D22  CMAN/ 

DATA  FILE 2/1 OH  INCAP  BODY/ 

C THIS  SUBROUTINES  READS  THE  ADDITIONAL  FOOT 

C SLICES  ONTO  THE  DISC  FROM  CAROS.  THUS  THE 

C INCAPACITATION  MODEL  INCREASES  IN  HEIGHT 

C THIS  PROGRAM  ADOS  6 ADDITIONAL  PORTIONS  TO  THE  FEET  . 

C IN  THE  INCAPACITATION  MAN 


c 

ARG1 

= 

STARTING 

POSITION 

OF 

SUBMATRIX 

ON 

Y 

AXIS 

c 

ARG2 

END 

POSITION 

OF 

SUBMATRIX 

ON 

Y 

AXIS 

c 

ARG3 

STARTING 

POSITION 

OF 

SUBMATRIX 

ON 

X 

AXIS 

c 

ARG4 

END 

POSITION 

OF 

SUBMATRIX 

ON 

X 

AXIS 

c 

ARG5 

= 

NUMBER  OF 

COLUMNS 

FOR 

SUBMATRIX 

c 

ARG6 

- 

NUMBER  CF 

ROWS  FOR 

SUBMATRIX 

C ARGUMENTS  7-9  PERTAIN  TO  EACH  INDIVIDUAL  ROW  OF  TISSUE  COOES 

C ARG7  - Y COORDINATE  OF  ROW 

C ARG8  = STARTING  X COORDINATE  GF  TISSUE  CODES 

C ARG9  = X COORDINATE  WHERE  TISSUE  CODES  END 

DO  2000  SLICE=1,6 

R E AD ( 5 , 1 CC ) CARDNUM , ARG1 , ARG2 , ARG3 » ARG4 , ARG5 , ARG6 

100  FORMAT! I 3,1X,6IA) 

DO  1000  I ROW= 1 » ARG6 

READ ( 5, 101 ) ARG7, ARG8 , ARG9, (ARRAY! N),N*1,2A) 

101  FORMAT! I 2, IX, I 2, IX, I 2, I 2, 231 3) 

DO  10  1=1, 24 

IF((ARRAY( I ) . GE  • i ).AND. ( ARRAY ( I ) .LE .200 ) ) GO  TO  10 
ARRAY ( I ) = I Z ERO 
1C  CONTINUE 

C SHIFT  TISSUE  COOES  UPWARDS  IN  INPUT  BUFFER  I ARRAY ) 

C SUCH  THAT  ARRAY! 1)  CONTAINS  AN  ENTRY 

C CALCULATE  INDEX  TO  RETRIEVE  CORRECT  ENTRY  FROM  ARRAY 

C CONSTRUCT  OUR  SUBMATRIX  W0RK1(Y,XI  USING  OUR  ARGUMENTS 

65  IF ( ARRAY ( l ) .NE .0 ) GOTO  75 
DO  60  N=  1 * 2 3 
ARRAY (N )= ARRAY ( N+ 1 ) 

60  CONTINUE 

GOTO  65 

75  CONTINUE 

WR I TE ( 6, 1 03 ) (ARRAYII) ,1  = 1,24) 

103  FORM AT ( 1 X.2AI3) 
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C TRANSFER  CONTENTS  OF  ARRAY  TO  WORK! 

C USING  ADDITIONAL  DATA  READ  IN 
C INSERT  ENTRY  IN  CORRECT  LOCATION 

C CONSTRUCT  SUBMATR I X FOR  THIS  SLICE 

C PRINT  ARG7, ARG8.AKG9 

WR  ITE I 6, 1 C4 ) ARG7, ARG8  » ARG9 

104  F0RMATI5X, 3112,2X1) 

64-  AR  G 3 ) + 1 
A R GHrT 

J=ARG7 

NN*I ARG9-ARG8 )+I 
00  200  1=1, NN 
IX=I ARGB+I )-l 
MAN! J, IX )=ARRAY< I ) 

200  CONTINUE 

1000  CONTINUE 

C PRINT  OUT  DATA  TO  CHECK  ARRAYS  FOR  ACCURACY 

DO  300  K = 1 » 55 

WRITE! 6, 1C2)  (MAN(K,I ) ,1=1,55) 

300  CONTINUE 

102  F0RMATI3  13,/, 25131 

C REFLECT  SLICE  ABOUT  MIDPOINT  OF  X-AXIS  THE  LINE  X*55 
C COPY  REFLECTED  DATA  ONTO  WORK  MATRIX 

00  50  J J = l » 55 
DO  5C0  1=1,110 
IX=111-I 

WORK  1 ( J , I ) =M AN ( J , IX ) 

500  CONTINUE 

C PRINT  OUT  REFLECTED  DATA  IN  W0RK1  ARRAY 

DO  400  K = 1 » 55 

WRITE (6, 1C61 ( WORK  I (K, I ) ,1=56,110) 

106  FORMAT! 3 i 13,/, 2513) 

400  CONTINUE 

C COPY  REFLECTED  DATA  ONTO  MAIN  ARRAY  IMAN) 

DO  600  J = 1 » 5 5 
DO  600  1=56, 110 
MAN! J, I ) =W0RK1 ( J, I ) 

600  CONTINUE 

C REVERSE  SLICE  ORDER  IN  OUTPUT  BUFFER  I MAN1 ) 

C FOOT  SLICES  WILL  BE  CROSS-SECTI OMS  79-84 

KM=7— SL ICE 
DO  900  J = 1, 55 
DO  900  1=1, 110 
MANK  J,I,KM)=MANI  J,I) 

900  CONTINUE 

C ZERO  WCRK  ARRAY  AFTER  EACH  SLICE  IS  COMPLETED 

DO  105  I Y = 1 » 55 
00  105  1=1,110 
MAN! IY, I ) = IZER0 
W0RK1UY,  I ) = IZERO 

105  CONTINUE 

200C  CONTINUE 

C THESE  ADDITIONAL  FOOT  SLICES  AND  THE  PRFCEEDING  FOOT  SLICES 

C ARE  NOT  CUTS  MADE  PARRALLEL  TO  X-Y  PLANE 

C 

C INTERCHANGE  X-Y  COORDINATES 

C ROTATE  CjMPUTER  MAN  90DEGR6ES  ABOUT  Z AXIS 

00  2 K= l , 6 
DO  2 J=l, 55 
DO  2 1=1,110 
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MAN3 ( I,J,K)»MANl< J,I,K) 

CONTINUE 

READ  IN  NEW  DISC  FILE  55D22  RECORD  1 
RECORO*! 

CALL  OISCOLI 3,NAME2,DISC2) 

CALL  DISCWTIFILE2. RECORD, 1,MAN3> 

CALL  DISCR0(FILS2,REC0RD,1,MAN3> 

C K IS  EQUAL  TO  SLICE  NUMBER  WITHIN  EACH  RECORD 
DO  18  K*l,6 
DO  16  J-=  1 , 55 
DO  16  I = UllO 
WORK  3 ( I*  J)=MAN3(I  , J,K» 

16  CONTINUE 

C CALCULATE  CROSS-SECTION  NUMBER  11-84* 

SLIC£=I  (RECORD-iJ*6UK 
CALL  MOSAIC(WORK3, SLICE) 

18  CONTINUE 

15  CONTINUE 

ENO 
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SUBROUTINE  MOSAIC  (KSI, I ) 
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SUBROUTINE  MOSAIC ( KSI « I ) 

01  MENS  I 0 J KSI  (110,55)  »GRID(  110,55)  ,ORDU12) 

COMMON/ SYMBOL /SYMBOL (230) 

COMMCN/CODE/COOE ( 200 ) 

INTEGER  K SI, GRID, SYMBOL » CODE » ERROR .BLANK « EDGE 1 » E0GE2 » Z?RO» 
1 PER.GRO 

DATA  SYMBOL/ 

A 1HQ , lHWtlHE, 1HR,1HT,1HY» 1HU, IHI »1H0»1HP,IHA, IHS , l HO* 

A 1HF , IHG, IHH, 1H J , IHK , IHL , 1HZ , 1HX , IHC , 1HV , IHB , 1HN, 1HM, 

A 1H0, 1H1* 1H2 , IH3, 1H4, 1H5, IH6 , IH7 , IH8 , 1H9 , l HO , IHH, IHE, 

A 1HR,1HT, 1HY, 1HU , 1H I , IHC , 1HP , IH A , IHS , l HO , l HF , IHG, IHH, 

A 1HJ,  1HK.IHL,  lHZ,lNX,lHr.,lHV,lHB,lHM,lHM,lH0,lHl,lM2, 

A 1H3 , 1H4  , 1H5, 1H6  » 1H7 , IHfl* IH9, IHOtlHW, IHE » 1HR , 1HT  * IHY  * 

A 1HU, IHI , 1H0, l HP, 1HA, IHS, IHO, 1HF , IHG , IHH, 1HJ,1HK,1HL* 

A 1HZ,1HX, 1HC,1HV,1H3,1HN,1HM,III0,1HI,1H2,IH3,IH4,IH5* 

A 1H6 , 1H  7 , IHB, 1H9, 1HQ  *lHW*lHt«lHR,lHT, IHY , 1 HU • 1H I * IHO* 

A 1HP , 1HA.1HS, IHO, 1HF,IHG, IHH, 1H J , IHK , IHL , 1 HZ , 1HX , IHC* 

A 1HV, IHB, 1HM, 1HM, IHO, IHI , 1H2 , 1H3 , l HA , 1H5 , 1H6 , IH7. IHB, 

A 1H9, 1HQ,  1HW, IHE, IHR , IHT , IHY , IHU , IH I , IHO , 1HP , 1HA, IHS, 

A IHO, IHF, IHG, IHH, IHJ, IHK , IHL , 1HZ , 1HX, IHC , 1HV, IHB, IHN, 

A 1HM , IHO , 1H 1 , IH2,IH3,1H4, IH5 , 1H6 , 1H7 , 1H8 , 1H9 , 1HQ , IHW, 

B 1H3, 1HT, 1HT, 1HL,1HR, 13*1H-/ 


DATA  COOE/ 

A 2,3,4,5,6,23,7,8,9,10,24,11,12, 

B 13,14,179,15, 16, 1 7, IB, 173, 174, 19,20, 2 1,22, 

C 25,55,26,27,28,29,30,31,32,175,176,33,34, 

D 35,36,37,38,39,40,41,42,177,178,43,44,45, 

E 46, 4 7, 48, 49, 5 ',51,52,53, 54, 73,55, 56,5 7, 

F 58,59,60, 61,62,63,64,65,66,67,68,75,69, 

G 70,71,72,73,96,74,76,77,78,79,180,80,81, 

H 82,83,84, 85,86,87,88, 89,99, LOC ,90,91,92, 

I 93,94,95,96, 119,97,98,101,200,102,103,104,105, 

J 106,110,111,107,108,109,112,113,114,115,116,117,118, 

K 119, 120, 121, 122, 123, 124, 125,126,127,128, 129, 130,131, 

L 132,133,134,135,136,137,138,139,140,141,142,146,143, 

M 144, 145,147,149, 150,151 ,152,153,154,155,156,157,158, 

M 159, 160, 161,162, 163, 164,165,166,167,168,169,170,171, 

N 172,181,182,183,184,13*0/ 

DATA  ERROR, BLANK, tDG El, EDGE2, ZERO, PER/IH-,IH  , IH. ,1H. ,IH0, 1H./ 
DATA  N /I 87/ 

DATA  CRO  /112*1H./ 
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00  20  J=l , 55 
v DO  20  L = 1 » 1 1G 

IF  (KSI ( L, J ) .EQ.QIGQ  TO  70 
00  25  K=1,N 

IF!KSIll,J).EQ.CODE!K))GOTO  30 
25  CONTINUE 

GRID ( L , J ) *ERROR 
GOTO  20 

30  GRID(L,J)=SYM80L(K) 

20  CONTINUE 

WR ITc ! fc, 107 ) 

107  FORMAT! * *Y‘) 

WRITE  (6, 106)  (ORD(  J)  t J = 1,U2) 

106  F0RMAT(112A1) 

00  K5  J='lt  55 
J J=56-J 

WRITE!6,1C6)E0GE1, (GRIO(L.JJ) .L=itllOl ,EDGE2 
85  CONTINUE 

WRITE(6,1C6)(0RD( J) ,J =1,112) 

WRITE(6, 100)1 

100  FORMAT! • J*,46X, ‘CROSS  SEC T I ON • , I 5 , 35X , • +X • ) 

RETURN 

70  GRII)(L,J)=BLANK 

IFIMODU,  10)  .EQ.6.AND.M0D!L,10).EQ.0)GRID!L,  J)=PER 
GO  TO  2) 

END 
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